## Not run:
# library(reshape2)
# library(dplyr)
# a <- read.csv("http://www.metaboanalyst.ca/MetaboAnalyst/resources/data/power_example.csv")
# peaksData <- melt(a,id.vars = c("Diet","Sample"),
# value.name = "value",variable.name = "ID")
# peaksData <- dplyr::rename(peaksData,class=Diet,sample=Sample)
# para <- new("metaXpara")
# peaksData(para) <- peaksData
# para <- missingValueImpute(para)
# para <- metaX::normalize(para)
# para <- transformation(para,valueID = "value")
# para <- preProcess(para,scale = "pareto",valueID="value")
# powerAnalyst(para,group=c("case","control"),log=FALSE,maxInd=200)
# ## End(Not run)
Run the code above in your browser using DataLab