# NOT RUN {
## See the formulae
growthFunShow("SchnuteRichards",plot=TRUE)
## Simple examples
ages <- 1:15
s1 <- SchnuteRichards(ages,Linf=100,k=0.03,a=0.01,b=0.005,c=2)
plot(s1~ages,type="l",lwd=2)
# }
Run the code above in your browser using DataLab