s10 <- data.frame(read.table('test.filtered.10', header=T))
s100 <- data.frame(read.table('test.filtered.100', header=T))

print("=====================================================================")
print("One-tailed Student's T test, SKEW = 1, default_statistics_target = 10")
t.test(s10$TOT[s10$SKEW == 1 & s10$USESTAT == 0], s10$TOT[s10$SKEW == 1 & s10$USESTAT == 1], alternative='g')
print("=====================================================================")
print("One-tailed Student's T test, SKEW = 2, default_statistics_target = 10")
t.test(s10$TOT[s10$SKEW == 2 & s10$USESTAT == 0], s10$TOT[s10$SKEW == 2 & s10$USESTAT == 1], alternative='g')
print("=====================================================================")
print("One-tailed Student's T test, SKEW = 3, default_statistics_target = 10")
t.test(s10$TOT[s10$SKEW == 3 & s10$USESTAT == 0], s10$TOT[s10$SKEW == 3 & s10$USESTAT == 1], alternative='g')

print("=====================================================================")
print("One-tailed Student's T test, SKEW = 1, default_statistics_target = 100")
t.test(s100$TOT[s100$SKEW == 1 & s100$USESTAT == 0], s100$TOT[s100$SKEW == 1 & s100$USESTAT == 1], alternative='g')
print("=====================================================================")
print("One-tailed Student's T test, SKEW = 2, default_statistics_target = 100")
t.test(s100$TOT[s100$SKEW == 2 & s100$USESTAT == 0], s100$TOT[s100$SKEW == 2 & s100$USESTAT == 1], alternative='g')
print("=====================================================================")
print("One-tailed Student's T test, SKEW = 3, default_statistics_target = 100")
t.test(s100$TOT[s100$SKEW == 3 & s100$USESTAT == 0], s100$TOT[s100$SKEW == 3 & s100$USESTAT == 1], alternative='g')