# 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)
plot_cnv(infercnv_obj,
out_dir=tempfile(),
obs_title="Observations (Cells)",
ref_title="References (Cells)",
cluster_by_groups=TRUE,
x.center=1,
x.range="auto",
hclust_method='ward.D',
color_safe_pal=FALSE,
output_filename="infercnv",
output_format="png",
png_res=300,
dynamic_resize=0
)
# }
Run the code above in your browser using DataLab