Nothing
plot.Procrustes <- function(x, F1=1, F2=2, ...){
dev.new()
A=cbind(x$X,x$Yrot)
plot(A[,F1],A[,F2], cex=0, asp=1, ...)
points(x$X[,F1],x$X[,F2], ...)
text(x$X[,F1],x$X[,F2],rownames(x$X), ...)
plines(x$X,x$Yrot)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.