samples <- read.table("samples.txt")
#print(samples)
print("Mean V1")
mean(samples$V1)
print("Stddev V1")
sd(samples$V1)
print("Variance V1")
var(samples$V1)
t.test(samples$V1, samples$V2)