sp2dfclo <- function(sp,y1,y2,nam,lo)
{
dat=data.frame(x=I(sp))
class(dat$x)="matrix"
if(!missing(nam)) rownames(dat$x)=nam
if(!missing(lo)) colnames(dat)=lo
dat=cbind(y1,y2,dat)
return(dat)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.