## Not run:
# ## (data example 1)
# data("dengueoutbreak1")
#
# ## plot function for a allmodels object
# ##Richards model
# ee<-allmodels(dengueoutbreak1$Incidence,dengueoutbreak1$Time, model="Richards")
# plot(ee,which=c(1,2))
#
# ## (data example 2)
# data("dengueoutbreak2")
# ##using all built-in models
# ee2<-allmodels(dengueoutbreak2$Incidence,dengueoutbreak2$Time, model="all")
# plot(ee2,which=c(1,2,3,4))
#
# ##plot function for allmodelpredict object
# ##3P logistic model (Incidence data example 2)
# ## information avalaible to the time point 20
# ## observation to predict: 30
# ee3<-allmodelpredict(dengueoutbreak2$Incidence[1:20],dengueoutbreak2$Time[1:20],30,
# model="logistic3P")
# plot(ee3,which=c(1,2))
#
# ##using all built-in models (Incidence data example 2)
# ## information avalaible to the time point 22
# ## observation to predict: 30
# ee4<-allmodelpredict(dengueoutbreak2$Incidence[1:22],dengueoutbreak2$Time[1:22],30,
# model="all")
# plot(ee4,which=c(1,2,3,4))## End(Not run)
##plot function for changetimeFSTP object
## See example changetimeFSTP function
Run the code above in your browser using DataLab