if (FALSE) { # requireNamespace("pmartRdata", quietly = TRUE)
library(pmartRdata)
mylipid <- edata_transform(omicsData = lipid_pos_object, data_scale = "log2")
mylipid <- group_designation(omicsData = mylipid, main_effects = "Virus")
result <- edata_summary(omicsData = mylipid, by = "sample", groupvar = NULL)
}
Run the code above in your browser using DataLab