# Simulated data.
simu <- bcellALL(5)
keys <- colnames(simu$counts)
# Predict subtypes.
cls <- classifier(verbose = FALSE)
covariates(cls) <- simu$metadata
profiles(cls) <- simu$counts
# Show visual report by name.
dev.new()
report(cls, name = keys[3])
# Show visual report by sample index.
dev.new()
report(cls, name = 3)
Run the code above in your browser using DataLab