R/dms2dec.R

In salah31416/toolbox: Tools Library

# Degree Minutes Seconds (DMS) to Degree Decimal (DD)
dms2dec = function(coord)
{
	out = sapply(coord,
			function(coord)
			{
				crd = coord_clean(coord)
				
				signal = sign(crd[1])
				crd = abs(crd)
				
				out  = signal * (crd[1] + crd[2]/60 + crd[3]/3600)
			}#end function 
	)#end sapply
	
	return(out)
}#end dms2dec