# NOT RUN {
data(data)
data(annots)
data(genes)
data(HMM_states)
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="../example_output",
cluster_by_groups=TRUE,
denoise=TRUE,
HMM=TRUE,
num_threads=2,
no_plot=TRUE)
mcmc_obj <- infercnv::inferCNVBayesNet( infercnv_obj = infercnv_obj,
HMM_states = HMM_states,
file_dir = "../example_output",
postMcmcMethod = "removeCNV",
out_dir = "../example_output",
quietly = TRUE,
CORES = 2,
plotingProbs = FALSE,
diagnostics = FALSE,
HMM_type = 'i6',
k_obs_groups = 1,
cluster_by_groups = FALSE)
# }
Run the code above in your browser using DataLab