data(net)
data(imputedData)
data <- imputedData
logD <- data$log2_value
rownames(logD) <- data$inf$ori.ID
group <- gsub("[0-9]+","", colnames(logD))
Module <- Module_inf(net, data$inf)
up <- changedID(logD, group, vs.set2 = "ad",vs.set1 = "ctl",
rank = "foldchange",anova = FALSE, Padj = "none",cutoff = 1,
datatype = "log2",fctype = "up")
intersection <- moduleID(up, Module, 5, coln = "ori.ID")
Run the code above in your browser using DataLab