R : Copyright 2002, The R Development Core Team
Version 1.5.1  (2002-06-17)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type `license()' or `licence()' for distribution details.

R is a collaborative project with many contributors.
Type `contributors()' for more information.

Type `demo()' for some demos, `help()' for on-line help, or
`help.start()' for a HTML browser interface to help.
Type `q()' to quit R.

> invisible(options(echo = TRUE))
> 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))
              target  yhat.regr  yhat.nnet yhat.tree
target    1.00000000 0.08297671 0.08028232 0.1199726
yhat.regr 0.08297671 1.00000000 0.74772375 0.3533951
yhat.nnet 0.08028232 0.74772375 1.00000000 0.2718147
yhat.tree 0.11997256 0.35339511 0.27181470 1.0000000
> proc.time()
[1] 13.03  0.51 13.52  0.00  0.00
>