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