kmassessinformative(c(0.02, 0.1, 0.07, 0.01, 0.4, 0.17, 0.07, 0.08, 0.08),
xpl$space,
"Bayesian",
rep(0.3,4),
rep(0.2,4),
NULL,
NULL
)
Run the code above in your browser using DataLab