R/reduced.eigen.R

Defines functions reduced.eigen

reduced.eigen <- function(data)
{
  cor = cor(data)
  diag.1 <- diag(rep(1, ncol(data)))
  min.cor = cor - diag.1

  reduced.cor = min.cor + diag(smc(data))

  e.values = eigen(reduced.cor)

  return(e.values)
}

Try the traj package in your browser

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

traj documentation built on April 14, 2023, 12:39 a.m.