if (FALSE) {
data(lepdata)
growth_LEP(l1=lepdata$l1,l2=lepdata$l2,dt=lepdata$dt,measurer=NULL,
gmodel=1,use_parameter_boundaries=T,graphs=T,
K_start_bounds=list(K1=0.2,lower_K1=0,upper_K1=Inf,K2=0.12,lower_K2=0,
upper_K2=Inf),
mu_Linf_start_bounds=list(mu_Linf=189.624,lower_mu_Linf=0,upper_mu_Linf=Inf,
sigma_mu_Linf=11.032,lower_sigma_mu_Linf=0, upper_sigma_mu_Linf=Inf),
A_start_bounds=list(mean_age=1.76,lower_mean_age=0,upper_mean_age=Inf,
sigma_age=0.165,lower_sigma_age=0,upper_sigma_age=Inf),
resid_error_start_bounds=list(sigma_resid=3.547,lower_sigma_resid=0,
upper_sigma_resid=Inf),
measurer_error_start_bounds=list(use_measurer=F,sigma_measure=3.547,
lower_sigma_measure=0,upper_sigma_measure=Inf),
vb_log_k_parms=list(alpha=2.955,lower_alpha=0,upper_alpha=Inf,fix_beta=T,
beta=30,lower_beta=0,upper_beta=30),
nlminb.control=list(eval.max=10000,iter.max=10000,trace=10),
tmb.control=list(maxit=10000,trace=FALSE))
}
Run the code above in your browser using DataLab