library(MASS)

ntw.lrn <- read.table("../lrn/ntw_lrn.dat",header=T,sep=",")
ntw.val <- read.table("../val/ntw_val.dat",header=T,sep=",")
ntw.tst <- read.table("../tst/ntw_tst.dat",header=T,sep=",")

ntw.names <- names(ntw.lrn)

y.lrn   <- ntw.lrn$connection.type
f23.lrn <- ntw.lrn$count
f29.lrn <- ntw.lrn$same.srv.rate
f.lrn   <- cbind(f23.lrn,f29.lrn)

y.val   <- ntw.val$connection.type
f23.val <- ntw.val$count
f29.val <- ntw.val$same.srv.rate
f.val   <- cbind(f23.val,f29.val)

y.tst   <- ntw.tst$connection.type
f23.tst <- ntw.tst$count
f29.tst <- ntw.tst$same.srv.rate
f.tst   <- cbind(f23.tst,f29.tst)

rm(ntw.lrn,ntw.val,ntw.tst)