data(imputedData)
group <- gsub("[0-9]+","", colnames(imputedData$intensity))
data <- imputedData
data$inf <- data$inf[1:100,]
data$intensity <- data$intensity[1:100,]
stat <- dataStatInf(data, group, meanmethod = "median",
T.test = "pairwise", Aadj = "fdr",
Tadj = "fdr", cutoff = FALSE)
Run the code above in your browser using DataLab