#Estimates from the gastric cancer studies(Taketomi et al.(2021); GASTRIC group (2013))
y<-c(-0.18312,-0.72266,-0.48507,-0.23961,-0.13226,-0.27228,-0.5867,-0.13969,
-0.1004,-0.31143,-0.04949,-0.11685,-0.13044,0.04391)
#Standard errors(Taketomi et al.(2021))
s<-c(0.15372,0.28686,0.33192,0.21558,0.14691,0.14416,0.24885,
0.14542,0.16404,0.17038,0.19818,0.16476,0.19268,0.17632)
#Pretest(PT) estimator and general pretest(GPT) estimator
gpt(y,s)
#If conf.int=TRUE, confidence intervals fot PT are in the output.
#Default is 95% confidence interval in pivot type.
gpt(y,s,conf.int=TRUE)
Run the code above in your browser using DataLab