# NOT RUN {
# See https://github.com/fabsig/GPBoost/tree/master/R-package for more examples
library(gpboost)
data(GPBoost_data, package = "gpboost")
#--------------------Grouped random effects model: single-level random effect----------------
gp_model <- fitGPModel(group_data = group_data[,1], y = y, likelihood="gaussian",
params = list(std_dev = TRUE))
summary(gp_model)
# }
# NOT RUN {
#--------------------Gaussian process model----------------
gp_model <- fitGPModel(gp_coords = coords, cov_function = "exponential",
likelihood="gaussian", y = y, params = list(std_dev = TRUE))
summary(gp_model)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab