R/rmse.R

In SoftBart: Implements the SoftBart Algorithm

#' Root mean squared error
#'
#' Computes the root mean-squared error between \code{y} and \code{yhat}, given
#' by \code{sqrt(mean((y - yhat)^2))}.
#'
#' @param y the realized outcomes
#' @param yhat the predicted outcomes
#'
#' @return Returns the root mean-squared error.
#'
#' @examples
#' 
#' rmse(c(1,1,1), c(1,0,2))
rmse <- function(y, yhat) {
  return(sqrt(mean((y-yhat)^2)))
}