N <- 4
data_transformed = data_transformation(seq_data=gene_expression_data,
meth_data=methylation_data,
gene_chr=gene_chromosome_data,
N=N)
data_output = idiffomix(seq_data=data_transformed$seq_transformed,
meth_data=data_transformed$meth_transformed,
gene_chr=gene_chromosome_data,
N=N, K=3, L=3, probs=c(0.25,0.75),
parallel_process = FALSE)
plot(data_output,what="chromosome",CHR=1, Gene=NULL,K=3,L=3,
gene_cluster_name=c( "E-","E0","E+"),
cpg_cluster_name=c( "M-","M0","M+"),
title=NULL)
Run the code above in your browser using DataLab