if (FALSE) {
library(RPPanalyzer)
data(dataIII)
dataIII_median <- sample.median(dataIII)
rppa2boxplot(x=dataIII_median, param="rank", control="vx",
orderGrp=c("vx","zx","yzr","rxi"), file="wilcoxonBoxplot.pdf")
rppa2boxplot(x=dataIII_median, param="rank", control=NULL,
orderGrp=c("vx","zx","yzr","rxi"), file="kruskalBoxplot.pdf")
}
Run the code above in your browser using DataLab