Nothing
.difplotLM2D <- function(refshape,targetshape,color=4,lwd=1,lcol=2,main=main, text=TRUE)
{
A <- refshape
k <- dim(A)[1]
m <- dim(A)[2]
sds <- 0
plot(refshape, col = color,main=main,asp=1,axes=FALSE,xlab="",ylab="")
for (j in 1:k)
lines(rbind(refshape[j,],targetshape[j,]),col=lcol,lwd=lwd)
if (text)
text(refshape,labels=paste("",c(1:k),sep=""),col=lcol,pos=2)
}
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.