# NOT RUN {
data(ALShctObjects)
#calculate the p-value of an ALS clinical trial where he
#slope of the ALSRS was -2 with standard Error 0.2
hct220ALSFRS$power(-.2,0,.2)
#Calculate the criteria for a p-value of 0.10 one sided to us in #a pilot study
hct220ALSFRS$criteria(0.1,.2)
# }
Run the code above in your browser using DataLab