# NOT RUN {
h<-c( 1.8, 2.7, 3.3, 2.4, 2.9, 3.4, 2.5, 3.2, 4.1, 2.7,
2.7, 2.2, 4.1, 1.5, 2.6, 17.1, 3.0, 2.5, 3.8, 2.1,
3.2, 2.5, 2.8, 2.2, 2.0, 2.4, 4.2, 2.6, 2.5, 3.7,
2.2, 3.0, 3.2, 2.5, 3.1, 3.0, 9.7, 12.1, 2.0, 2.4,
3.2, 2.4, 2.9, 2.4, 3.2, 2.0, 2.5, 12.8, 18.2)
d<-c(13.7, 16.8, 20.8, 13.5, 17.0, 16.5, 15.0, 40.9, 20.8, 18.0,
16.0, 12.7, 26.4, 11.4, 16.8, 66.0, 18.3, 9.70, 19.8, 16.5,
22.9, 15.2, 29.0, 22.4, 11.4, 22.9, 26.7, 19.3, 24.1, 22.4,
13.5, 11.7, 19.3, 18.0, 19.6, 26.4, 72.1, 66.0, 11.7, 16.0,
13.5, 15.2, 17.0, 12.4, 16.0, 11.4, 14.5, 63.0, 55.6)
starts<-c(18,0.0005,2)
fitgrowth(h,d,"weibull",starts=starts)
# }
Run the code above in your browser using DataLab