lrn <- read.table("bv_lrn.dat",
         header=F,colClasses="numeric",col.names=c("x","y"))
val <- read.table("bv_val.dat",
         header=F,colClasses="numeric",col.names=c("x","y"))
tru <- read.table("bv_tru.dat",
         header=F,colClasses="numeric",col.names=c("x","f"))