Displaying 1 result from an estimated 1 matches for "yldeonr2".
Did you mean:
yldeonr
2004 Mar 17
0
NLS question:Quadratic plus plateau fit
...qp.nls.fit
summary(qp.nls.fit)
c.qp.fit <- coefficients(qp.nls.fit)
attach(as.list(c.qp.fit))
yld.x0 <- b0 + b1*x0 + b2*x0^2
maxn <- -b1/(2*b2)
eonr <- (ratio - b1)/(2*b2)
eonr2 <- round(eonr, digits = 0)
yldmaxn <- b0 + b1*maxn + b2*maxn^2
yldeonr <- b0 + b1*eonr + b2*eonr^2
yldeonr2 <- round(yldeonr, digits = 0)
plot(yield ~ nrate,
pch = 16,
main = "Quadratic plus Plateau Model",
xlab = expression(paste("Nitrogen rate [lbs ac" ^-1,"]")),
ylab = expression(paste("Corn yield [bu ac"^-1,"]")))
curve(predict...