# NOT RUN {
# data(data)
# data(annots)
# data(genes)
# infercnv_obj <- infercnv::CreateInfercnvObject(raw_counts_matrix=data,
# gene_order_file=genes,
# annotations_file=annots,
# ref_group_names=c("normal"))
# infercnv_obj <- infercnv::run(infercnv_obj,
# cutoff=1,
# out_dir=tempfile(),
# cluster_by_groups=TRUE,
# denoise=TRUE,
# HMM=FALSE,
# num_threads=2,
# no_plot=TRUE)
data(infercnv_object)
infercnv::plot_per_group(infercnv_obj, out_dir=tempfile())
# }
Run the code above in your browser using DataLab