R/geoconvert.1.R

Defines functions geoconvert.1

Documented in geoconvert.1

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)
}

Try the geo package in your browser

Any scripts or data that you put into this service are public.

geo documentation built on May 2, 2019, 5:22 p.m.