Nothing
"buffer.ani" <- function(pts, fac, x, dist)
{
## Verifications
if (inherits(x, "asc"))
x<-as.kasc(list(toto=x))
if (inherits(x, "kasc"))
x<-storemapattr(x)
if (!inherits(x, "mapattr"))
stop("non convenient format for x")
if (length(fac)!=nrow(pts))
stop("factor should have the same length as pts")
## split the points into a list of several elements, and use
## the function buffer for each element
lipts<-split(pts, fac)
sorties<-list()
for (i in names(lipts)) {
ptst<-lipts[[i]]
sorties[[i]]<-buffer(ptst, x, dist)
}
## output as kasc
sor<-as.kasc(sorties)
return(sor)
}
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.