train.data <- read.table("./data/AlgaeLearn.txt", header = T)
test.data <- read.table("./data/AlgaeTest.txt", header = T)
lm.model <- lm(a1 ~., train.data)