# NOT RUN {
# data(expdata)
# mim <- cor(t(expdata), method = 'pearson')
# mim <- Ac3net.filtersames(mim)
# cutoff <- Ac3net.cutoff(mim=mim, ratio_ = 0.002, PCmincutoff=0.6, PCmaxcutoff=0.96)
# Ac3net.net <- Ac3net.maxmim(mim_= mim, net_=TRUE, cutoff_= cutoff)
# }
Run the code above in your browser using DataLab