R/hatr.R

In lmridge: Linear Ridge Regression with Ridge Penalty and Ridge Statistics

Defines functions hatr.lmridge hatr

Documented in hatr hatr.lmridge

hatr <- function(x,...)
  UseMethod("hatr")
hatr.lmridge<- function(x, ...) {
  Z <- x$Z
  X <- x$xs
  hatr <- lapply(Z, function(x) {
    round(X %*% x, 5)
  })


  hatr
}

Try the lmridge package in your browser