Nothing
geoconvert.1 <-
function(x)
{
i <- sign(x)
x <- abs(x)
# x <- ifelse(abs(x) < 10000, x * 100, x) # This can not be allowed.
# Check for minutes > 60
x1 <- x %% 10000
k <- c(1:length(x1))
k <- k[x1 > 5999 & !is.na(x1)]
if(length(k) > 0)
print(paste("error > 60 min nr", k, x[k]))
min <- (x/100) - trunc(x/10000) * 100
return((i * (x + (200/3) * min))/10000)
}
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.