library(YPmodel)
data(gastric)
Adlgrk <- YPmodel.adlgrk(data=gastric)
summary(Adlgrk)
Estimate <- YPmodel.estimate(data=gastric, interval=0)
Adlgrk <- YPmodel.adlgrk(data=gastric, Estimate=Estimate)Run the code above in your browser using DataLab