Nothing
NumI <-
function(posNH, It=c(1,100))
{
d<-length(posNH)
numI<-NULL
for (j in (1:d))
{
indN<-((posNH[[j]]>=It[1])&(posNH[[j]]<=It[2]))
numI[j]<-sum(indN)
}
return(numI)
}
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.