# NOT RUN {
library(survELtest)
nocrossings(survival::Surv(hepatitis$time, hepatitis$censor)~
hepatitis$group, sided = 1)
## OUTPUT:
## Call:
## nocrossings(formula = survival::Surv(hepatitis$time, hepatitis$censor) ~
## hepatitis$group, sided = 1)
##
## Decision = 1
## A decision value of 1 means the case of crossings or alternative orderings among the
## survival functions is excluded. Thus, we can proceed to the one-sided test.
supELtest(survival::Surv(hepatitis$time, hepatitis$censor)~
hepatitis$group, sided = 1)
## OUTPUT:
## Call:
## supELtest(formula = survival::Surv(hepatitis$time, hepatitis$censor) ~
## hepatitis$group, sided = 1)
##
## One-sided maximally selected EL test statistic = 10.36, p = 0.006
# }
Run the code above in your browser using DataLab