R/aspectEigen.R

`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 31, 2017, 1:53 a.m.