kmassessbayesian(c(0.02, 0.1, 0.07, 0.01, 0.4, 0.17, 0.07, 0.08, 0.08),
xpl$space,
rep(0.2,4),
rep(0.1,4),
3,
1
)
Run the code above in your browser using DataLab