# STA 414, Assignment #4 - Script to test all methods.

source("gp.r")
source("tests.r")

t1 = tests ("a4a-x-train","a4a-y1-train","a4a-x-test","a4a-y1-test")

cat("\nAverage squared errors:\n")
print(round(t1$res,4))
cat("\nP-values from paired t tests:\n")
print(round(t1$pvals,3))

t2 = tests ("a4a-x-train","a4a-y2-train","a4a-x-test","a4a-y2-test")

cat("\nAverage squared errors:\n")
print(round(t2$res,4))
cat("\nP-values from paired t tests:\n")
print(round(t2$pvals,3))

t3 = tests ("a4b-x-train","a4b-y-train","a4b-x-test","a4b-y-test")

cat("\nAverage squared errors:\n")
print(round(t3$res,4))
cat("\nP-values from paired t tests:\n")
print(round(t3$pvals,3))