R/residuals.procrustes.R

"residuals.procrustes" <-
  function (object, ...) 
{
  distance <- object$X - object$Yrot
  resid <- apply(distance^2, 1, sum)
  resid <- sqrt(resid)
  resid
}
pattakosn/Rworkshop documentation built on May 24, 2019, 8:22 p.m.