target.lrn <- read.table("../lrn/num/472.dat",
               header=T,colClasses="numeric",col.names="target")
yhat.regr <- read.table("../regr/yhat_lrn.dat",
               header=T,colClasses="numeric",col.names="yhat.regr")
yhat.nnet <- read.table("../nnet/yhat_lrn_05.dat",
               header=T,colClasses="numeric",col.names="yhat.nnet")
yhat.tree <- read.table("../tree/yhat_lrn_0008.dat",
               header=T,colClasses="numeric",col.names="yhat.tree")

yhat <- data.frame(target.lrn,yhat.regr,yhat.nnet,yhat.tree)

print(cor(yhat))