# NOT RUN {
data(pasi)
data(pasi)
getResponse(pasi.ch ~ dose, data=pasi)
library(survival)
data(ovarian)
ovarian$subgroups <- as.factor(10*ovarian$ecog.ps+ovarian$rx)
surv <- getResponse(Surv(futime,fustat)~rx, data=ovarian)
print(surv)
class(surv)
# }
Run the code above in your browser using DataLab