# NOT RUN {
x <- rgamma(20,0.3)
#Apply the Cox and Oakes test (score) test
LK.test(x,type="CO")
# Apply the test based on Wald
LK.test(x,type="W")
# Apply the test based on the likelihood ratio
LK.test(x,type="LR")
# }
Run the code above in your browser using DataLab