# NOT RUN {
library(survivALL)
library(Biobase)
data(nki_subset)
#Calculate p-value for continuous measure SCUBE2
srv_dfr <- data.frame(measure = exprs(nki_subset)["NM_020974", ],
time = nki_subset$t.dmfs,
event = nki_subset$e.dmfs
)
checkContSig(srv_dfr$measure, srv_dfr$time, srv_dfr$event)
# }
Run the code above in your browser using DataLab