R/OrthogonalizeScores.R

Defines functions OrthogonalizeScores

Documented in OrthogonalizeScores

OrthogonalizeScores <- function(scores){
  dimens=dim(scores)[2]
  n=dim(scores)[1]
  for (i in 1:dimens)
    scores[,i]=scores[,i]-mean(scores[,i])
  cov=t(scores) %*% scores
  dec=svd(cov)
  newscores = sqrt(n) * scores %*% dec$v %*% solve(diag(sqrt(dec$d)))
  return(newscores)
}

Try the MultBiplotR package in your browser

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

MultBiplotR documentation built on Nov. 21, 2023, 5:08 p.m.