# NOT RUN {
pain <- as.table(matrix(c(26, 6, 26, 7, 23,
9, 18, 14, 9, 23),
ncol=5, byrow=TRUE,
dimnames=list(adverse=c("no", "yes"), dose=1:5)))
SpearmanRho(pain)
SpearmanRho(pain, conf.level=0.95)
# must be the same as
with(Untable(pain),
SpearmanRho(adverse, dose, conf.level=0.95))
# }
Run the code above in your browser using DataLab