## Not run:
# ## (data example 1)
# data("dengueoutbreak1")
#
# ## Using only the information until time point 20
# ## Prediction of the final size and turning point at the end of epidemic,
# ## the incidence and the cumulative number of cases in the observation
# ## number 36 using only the Richards model
# allmodelpredict(dengueoutbreak1$Incidence[1:20],dengueoutbreak1$Time[1:20],36,
# model = "Richards")
#
# ## Using only the information until time point 22
# ## Now using all built-in model, Prediction of the final size and turning point
# ## at the end of epidemic, the incidence and the cumulative number of cases
# ## in the observation number 30
# allmodelpredict(dengueoutbreak1$Incidence[1:22],dengueoutbreak1$Time[1:22],30,
# model = "all")## End(Not run)
## (data example 2)
data("dengueoutbreak2")
## Using only the information until time point 18, Prediction of the final size and
## turning point at the end of epidemic, the incidence and the cumulative number
## of cases in the observation number 31 using only the 3P logistic model
allmodelpredict(dengueoutbreak2$Incidence[1:18],dengueoutbreak2$Time[1:18],31,
model = "logistic3P")
## Not run:
# ## Using only the information until time point 20
# ## Now using all built-in model, Prediction of the final size and turning point
# ## at the end of epidemic, the incidence and the cumulative number of cases
# ## in the observation number 30
# allmodelpredict(dengueoutbreak2$Incidence[1:20],dengueoutbreak2$Time[1:20],34,
# model = "all")## End(Not run)
Run the code above in your browser using DataLab