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