Nothing
nMenr <-
function(ri,nearestpD, punt, T)
{
aux<-((punt>=ri)&(punt<=(T-ri)))
nMenri<-sum(nearestpD[aux]<=ri)
puntr<-sum(aux)
return(c(nMenri,puntr))
}
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.