data(exprs1)
exprs.1<-exprs1[1:200,1:5]
exprs.2<-exprs1[1:200,6:10]
###########################################################
## calculate differentially co-expressed genes (DCGs) and
## differentially co-expressed links (DCLs) by DCEA.
DCEA.res<-DCEA(exprs.1,exprs.2,
r.method=c('pearson','spearman')[1],
link.method=c('qth','rth','percent')[3],
cutoff=0.05,
N=0, N.type=c('pooled','gene_by_gene')[1],
q.method=c("BH","holm", "hochberg", "hommel", "bonferroni", "BY","fdr")[1],
nbins=20,p=0.1)
DCEA.res$genes[1:3,]
DCEA.res$links[1:3,]
###########################################################
###########################################################
## calculate differentially co-expressed genes (DCGs) and
## differentially co-expressed links (DCLs) with 100 permutation times.
#DCEA.res.N<-DCEA(exprs.1,exprs.2,
# r.method=c('pearson','spearman')[1],
# link.method=c('qth','rth','percent')[3],
# cutoff=0.05,
# N=100, N.type=c('pooled','gene_by_gene')[1],
# q.method=c("BH","holm", "hochberg", "hommel", "bonferroni", "BY","fdr")[1],
# nbins=20,p=0.1)
#DCEA.res.N$genes[1:3,]
#DCEA.res.N$links[1:3,]
###########################################################
Run the code above in your browser using DataLab