make.ss <-
function(traps, buffer, grid.density)
{x<-seq(min(traps$x)-buffer, max(traps$x)+buffer, by=grid.density)
y<-seq(min(traps$y)-buffer, max(traps$y)+buffer, by=grid.density)
ss.y<-rep(y, length(x))
ss.x<-rep(x[1], length(y))
for (i in 2:length(x))
{
ss.x<-c(ss.x,rep(x[i],length(y)))
}
ss.animal<-data.frame(X_coord=ss.x, Y_coord=ss.y)
list(ss.animal=ss.animal)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.