% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/GPModel.R
\name{predict_training_data_random_effects.GPModel}
\alias{predict_training_data_random_effects.GPModel}
\title{Predict ("estimate") training data random effects for a \code{GPModel}}
\usage{
\method{predict_training_data_random_effects}{GPModel}(gp_model,
  predict_var = FALSE)
}
\arguments{
\item{gp_model}{A \code{GPModel}}

\item{predict_var}{A \code{boolean}. If TRUE, the (posterior) 
predictive variances are calculated}
}
\value{
A \code{GPModel}
}
\description{
Predict ("estimate") training data random effects for a \code{GPModel}
}
\examples{
\donttest{
data(GPBoost_data, package = "gpboost")
# Add intercept column
X1 <- cbind(rep(1,dim(X)[1]),X)
X_test1 <- cbind(rep(1,dim(X_test)[1]),X_test)

gp_model <- fitGPModel(group_data = group_data[,1], y = y, X = X1, likelihood="gaussian")
all_training_data_random_effects <- predict_training_data_random_effects(gp_model)
first_occurences <- match(unique(group_data[,1]), group_data[,1])
unique_training_data_random_effects <- all_training_data_random_effects[first_occurences]
head(unique_training_data_random_effects)
}
}
\author{
Fabio Sigrist
}
