# NOT RUN {
# following example from https://jenfb.github.io/bkmr/overview.html
# }
# NOT RUN {
library(bkmr)
set.seed(111)
dat <- bkmr::SimData(n = 50, M = 4)
y <- dat$y
Z <- dat$Z
X <- dat$X
set.seed(111)
fitkm <- kmbayes(y = y, Z = Z, X = X, iter = 5000, verbose = FALSE,
varsel = TRUE)
postmean = predict(fitkm)
postmean2 = predict(fitkm, Znew=Z/2)
# mean difference in posterior means
mean(postmean-postmean2)
# }
Run the code above in your browser using DataLab