# NOT RUN {
library(survivALL)
data(nki_subset)
library(Biobase)
gene_vec <- exprs(nki_subset)["NM_004448", ] #ERBB2 gene id
allPvals(measure = gene_vec,
srv = pData(nki_subset),
time = "t.dmfs",
event = "e.dmfs",
statistic = "logtest")
allPvals(measure = gene_vec,
srv = pData(nki_subset),
time = "t.dmfs",
event = "e.dmfs",
multiv = "grade",
statistic = "sctest")
# }
Run the code above in your browser using DataLab