#Disable parallel so Bioconductor build won't hang
library(BiocParallel)
register(SerialParam())
library(breastCancerNKI)
data(nki)
nki <- nki[,!is.na(nki$e.dmfs)]
data(knownSignatures)
## survival analysis
check <- sigCheck(nki, classes="e.dmfs", survival="t.dmfs",
signature=knownSignatures$cancer$VANTVEER,
annotation="HUGO.gene.symbol",
validationSamples=150:319)
knownResult <- sigCheckKnown(check)
knownResult$checkPval
knownResult$survivalPvalsKnown[knownResult$survivalPvalsKnown <
knownResult$checkPval]
sigCheckPlot(knownResult)
Run the code above in your browser using DataLab