Nothing
`DO.PMOT.ARR` <-
function(E, N)
{
len = floor( (length(N)-4) / 4 )
for(jarr in 1:4)
{
karr = (jarr)*len
harr = hypot(E[karr], N[karr], E[karr+1], N[karr+1])
#### message(c(jarr, karr, harr))
###### message(paste(sep=' ', jarr, karr, harr))
if(!is.na(harr) & harr>.001)
{
arrows(E[karr], N[karr], E[karr+1], N[karr+1], length=.06)
}
}
}
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.