# NOT RUN {
data("linnarsson")
# }
# NOT RUN {
system.time(linnarsson_saver <- saver(linnarsson, ncores = 12))
# }
# NOT RUN {
# predictions for top 5 highly expressed genes
# }
# NOT RUN {
saver2 <- saver(linnarsson, npred = 5)
# }
# NOT RUN {
# predictions for certain genes
# }
# NOT RUN {
genes <- c("Thy1", "Mbp", "Stim2", "Psmc6", "Rps19")
genes.ind <- which(rownames(linnarsson) <!-- %in% genes) -->
saver3 <- saver(linnarsson, pred.genes = genes.ind)
# }
# NOT RUN {
# return only certain genes
# }
# NOT RUN {
saver4 <- saver(linnarsson, pred.genes = genes.ind, pred.genes.only = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab