R/aspectEigen.R

Defines functions `aspectEigen`

`aspectEigen` <-
function(r, p = 1) {
  s <- eigen(r)
  v <- s$vectors[,1:p]
  list(f = sum(s$values[1:p]), g = v%*%t(v))
}

Try the aspect package in your browser

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

aspect documentation built on May 6, 2022, 9:06 a.m.