Displaying 3 results from an estimated 3 matches for "yrot".
Did you mean:
prot
2004 Feb 23
2
plot(my.procrustes.model) from library {vegan}
Dear All,
I would like to ask how to customize the graph corresponding to a
procrustes analysis.
I have to distance matrices, that I transform to two set of coordinates
by means of muti dimensional scaling:
library(mva)
c1<-cmdscale(mat.dist1)
c2<-cmdscale(mat.dist2)
I vant to rotate c2 on c1, and I use the "procrustes" analysis from the
{vegan} library.
library(vegan)
2008 Jul 30
1
Re creating Procrustes Plot in Lattice
Hi, I have been trying to create a function to generate a Procrustes plot,
generated from package "vegan"
in lattice.
standard vegan code as follows
library(vegan)
pro=protest(P1, P8, permutations=4999,choices=1:4)
plot(pro)
Now, here is the code for the function that I have failed to get to work
properly.
panel.procrustes=function(x,y)
}Pro=protest(x,y,permutations=4999,choices=1:4)
2008 Aug 07
2
panel.arrows problem in custom panel function
...kind = 1, choices = 1:2,
xlab, ylab, main, ...) {
require(lattice) || stop("requires package 'lattice'")
if (missing(main))
main <- "Procrustes errors"
if(kind == 1) {
dat <- data.frame(x = object$Yrot[, choices[1]],
y = object$Yrot[, choices[2]])
if(missing(xlab))
xlab <- paste("Dimension", choices[1])
if(missing(ylab))
ylab <- paste("Dimension", choices[2])
aspect <- "iso"
} else...