R/eigenkronecker.R

Defines functions eigenkronecker

Documented in eigenkronecker

eigenkronecker <- function(x, n) {
  e <- eigen(x, symmetric=TRUE, only.values=FALSE)
  d <- e$values
  v <- e$vectors
  D <- rep(d, each=n)
  V <- kronecker(v, diag(n))
  list(values=D, vectors=V)  
}

Try the robustsur package in your browser

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

robustsur documentation built on Oct. 4, 2021, 9:07 a.m.