Commit be6a6342 by Eric Coissac

CHange implementation of the mvar function to allow extraction of the covariance…

CHange implementation of the mvar function to allow extraction of the covariance matrix from a procruste model `pm`
parent 089fccf2
......@@ -25,12 +25,14 @@ mvar = function(...) {
Xs <- list(...)
if (length(Xs)==1) {
if (is.list(Xs[[1]]))
Xs=as.procmod.frame(Xs[[1]])
else if (is.procmod.frame(Xs[[1]]))
Xs=Xs[[1]]
x = Xs[[1]]
if (is.procmod.frame(x))
Xs=x
else if (is.pm(x))
return(x$cov)
else
Xs=procmod.frame(Xs[[1]]) }
Xs=procmod.frame(x)
}
else
Xs=as.procmod.frame(Xs)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment