library(YPmodel)
data(gastric)
Estimate <- YPmodel.estimate(data=gastric, interval=1)
Estimate <- YPmodel.estimate(data=gastric, startPoint=c(0,0), nm=log(100))
Estimate <- YPmodel.estimate(data=gastric, maxIter1=50, maxIter2=20)
summary(Estimate)
plot(Estimate)Run the code above in your browser using DataLab