Adapted from Lester Yuan's code. Used in taxon.response.sort().

curve.shape(mnr, ubnd, lbnd)

Arguments

mnr

mean predicted probability

ubnd

upper boundary of mean predicted probability

lbnd

lower boundary of mean predicted probability

Value

returns one of "Unimodal", "Increasing", "Decreasing", "Concave up", or NA.

Examples

mean.resp <- 1:1000 up.bound <- mean.resp+1 low.bound <- mean.resp-1 curve.shape(mean.resp, up.bound,low.bound)
#> [1] "Increasing"