Displaying 1 result from an estimated 1 matches for "altura0".
Did you mean:
altura
2011 May 17
0
Help fit 5 nonlinear models. - Plant growth curves
...n(a*(1-exp(-b*(x-c))))}
gompertz=function(x,a,b,c){return(a*exp(-exp(-b*(x-c))))}
logistico=function(x,a,b,c){return(a/(1+exp(-b*(x-c))))}
gauss=function(x,a,b,c){return(a*exp((-((x-c)*(x-c))/(2*(b*b)))))}
richards=function(x,a,b,c){return(a*(1+(m-1)*exp(-b*(x-c)))**(1/(1-m)))}
###Variables
#Altura
ALTURA0=subset(d,d$TRAT==f[1],select=c(1,REG[1]))
ALTURA_0=data.frame(dia,tapply(ALTURA0[,2],ALTURA0[,1],median, na.rm=TRUE))
colnames(ALTURA_0)=c("ddt","reg")
#PSEUDO
PSEUDO0=subset(d,d$TRAT==f[1],select=c(1,REG[5]))
PSEUDO_0=data.frame(dia,tapply(PSEUDO0[,2],PSEUDO0[,1],median, na.rm=...