R/sinv.R

Defines functions sinv

sinv <- function(x)
{
  x <- copy_matrix(x, "double")
  n <- as.integer(ncol(x))
  .Call(R_sinv, x, n, PACKAGE = "lmeVarComp")
  matrix(x, n, n)
}

Try the lmeVarComp package in your browser

Any scripts or data that you put into this service are public.

lmeVarComp documentation built on May 2, 2019, 8:55 a.m.