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`

R/mcov.R

@@ -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)