bayes + kriging v data.r