source("test.R")
mna
mkm
system("test.R")
system("vi test.R")
source("test0.R")
system("vi test0.R")
system("vi test0.R")
source("test0.R")
system("vi test0.R")
BiasTab
VarTab
MSETab
system("vi test.R")
dim(mkm)
dim(mna)
plot(mkm[,1],mna[,1],pch=".")
plot(mkm[,2],mna[,2],pch=".")
plot(mkm[,3],mna[,3],pch=".")
plot(mkm[,4],mna[,4],pch=".")
abline(c(0,1))
q()
