R/L2.R

Defines functions L2

L2 <- function(y, yhat, w){ 
  n <- length(y)
  if (missing(w)) w <- rep(1 / n, n)
  return(stats::weighted.mean((y-yhat)^2, w))
}
PierreMasselot/cgaim documentation built on March 5, 2025, 10:18 p.m.