Commit be6a6342 authored by Eric Coissac's avatar Eric Coissac

CHange implementation of the mvar function to allow extraction of the...

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