samples <- read.table("bad_samples.txt")
t.test(samples$V1, samples$V2)


samples <- read.table("samples.txt")
print(samples)
t.test(samples$V1, samples$V2)