data(imputedData)
data <- imputedData
relative <- data$relative_value
rownames(relative) <- data$inf$ori.ID
group <- gsub("[0-9]+", "", colnames(relative))
datamean <- groupmean(relative, group, name = FALSE)
fc_1vs2 <- fc.pos(datamean, vs.set2 = "ad", vs.set1 = "ctl",
cutoff = 1, datatype = "none",
fctype = "up", order = TRUE)
fc_ID <- rownames(relative)[fc_1vs2]
Run the code above in your browser using DataLab