### Building input data ####
Names <- c("Replicates", "Galactose metabolism", "Glycerolipid metabolism",
"Carbon fixation in photosynthetic organisms", "Fatty acid biosynthesis",
"D-Alanine metabolism")
Sample1 <- c("cond1", 200, 77, 99, 42, 29)
Sample2 <- c("cond1", 236, 72, 80, 39, 14)
Sample3 <- c("cond1", 269, 83, 89, 45, 31)
Sample4 <- c("cond2", 68, 12, NA, 6, 0.006)
Sample5 <- c("cond2", 57, 10, NA, 7, 0.1)
Sample6 <- c("cond2", 58, 13, NA, 8, 0.05)
dataInput <- data.frame(cbind(Names, Sample1, Sample2, Sample3, Sample4,
Sample5, Sample6), stringsAsFactors = FALSE)
### Applying papiHtest ####
papiHtestResults <- papiHtest(dataInput, save = FALSE)
Run the code above in your browser using DataLab