Maximum Curvature Point for Optimum Plot Size

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

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.

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.

Author

Anderson Rodrigo da Silva <anderson.agro@hotmail.com>

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])
#> [1] 4.140239

# End (not run)