# NOT RUN {
library(YPmodel)
data(gastric)
IntervalBands <- YPmodel.IntervalBands(data=gastric)
summary(IntervalBands)
plot(IntervalBands)
Estimate <- YPmodel.estimate(data=gastric, interval=0)
IntervalBands <- YPmodel.IntervalBands(data=gastric, Estimate=Estimate)
# }
Run the code above in your browser using DataLab