Lob.329 <- Loblolly[ Loblolly$Seed == "329", ]
print(NLSstAsymptotic(sortedXyData(expression(age),
expression(height),
Lob.329)), digits = 3)
Run the code above in your browser using DataLab