# source("rCompareColumns.txt", print.eval=TRUE)
# R --vanilla < rCompareColumns.txt

columnData <- read.table("tmpColumnData.txt", header=TRUE, sep=" ")

"=============================================================="
"Mean of column 1:"
mean(columnData$columnOne)
"=============================================================="
"Mean of column 2:"
mean(columnData$columnTwo)
"=============================================================="
shapiro.test(columnData$columnOne)
"=============================================================="
shapiro.test(columnData$columnTwo)
"=============================================================="
t.test(columnData$columnOne, columnData$columnTwo, alternative="less", paired=TRUE, conf.level=1-(0.05 / 6))
"=============================================================="
wilcox.test(columnData$columnOne, columnData$columnTwo, alternative="less", paired=TRUE, conf.level=1-(0.05 / 6))
"=============================================================="