optimumplotsize {biotools}

Maximum Curvature Point for Optimum Plot Size

Description

The Meier & Lessman (1971) method to determine the maximum curvature point for optimum plot size as a function of the experimental coefficient of variation.

Usage

optimumplotsize(a, b)

Arguments

a

a parameter estimate of the plot size model; see fitplotsize.

b

a parameter estimate of the plot size model; see fitplotsize.

Value

The (approximated) optimum plot size value.

Author(s)

Anderson Rodrigo da Silva <[e-mail]>

References

Meier, V. D. & Lessman, K. J. (1971) Estimation of optimum field plot shape and size for testing yield in Crambe abyssinia Hochst. Crop Sci., 11:648-650.

See Also

fitplotsize

Examples

ps <- c(1, 2, 3, 4, 6, 8, 12)
cv <- c(35.6, 29, 27.1, 25.6, 24.4, 23.3, 21.6)
out <- fitplotsize(plotsize = ps, CV = cv)
plot(cv ~ ps)
curve(coef(out)[1] * x^(-coef(out)[2]), add = TRUE)
optimumplotsize(a = coef(out)[1], b = coef(out)[2])

# End (not run)