set.seed(1)
data(growth)
s <- 2e1 ##To replicate KL, set this to 2e5
a.bma <- ivbma.cv.study(growth, s = s, print.every = s)
a.full <- ivbma.cv.study(growth, s = s, print.every = s, full = TRUE)
print(rbind(colMeans(a.bma), colMeans(a.full)))
Run the code above in your browser using DataLab