#Load antigenicity data
data(antigenicity)
#Run step1.down fit
fit1 <- step1_down(data = antigenicity, y = "conc", .time = "time",
C = "Celsius", max_time_pred = 3)
#Plot raw data with prediction curves and prediction intervals.
step1_plot_PI(step1_down_object = fit1, xlim = NULL, ylim = NULL,
xname = "Time (Years)", yname = "Concentration", ribbon = TRUE)
#Plot raw data with prediction curves and confidence intervals.
#Also limit x-axis to values between 0 and 1.5 and limit y-axis to values between 0 and 105.
step1_plot_PI(step1_down_object = fit1, xlim = c(0,1.5), ylim = c(0,105),
xname = "Time (Years)", yname = "Concentration", ribbon = TRUE)
Run the code above in your browser using DataLab