est <- as.matrix(read.table("est.txt",head=F))
val <- as.matrix(read.table("val.txt",head=F))
tst <- as.matrix(read.table("tst.txt",head=F))

trn <- rbind(val,est)
trn.X <- trn[,-51]
trn.y <- trn[,51]

trn.mean <- apply(trn.X,2,mean)
trn.sd <- apply(trn.X,2,sd)
trn.X <- scale(trn.X,center=trn.mean,scale=trn.sd)

tst.y <- tst[,51]
tst.X <- tst[,-51]
tst.X <- scale(tst.X,center=trn.mean,scale=trn.sd)