R/WGS84GEO_TO_HK80GEO.R

In HK80: Conversion Tools for HK80 Geographical Coordinate System

WGS84GEO_TO_HK80GEO <-
function(latitude, longitude){
    #### The latitude and longitude should be both in decimal format. 
    lat <- latitude + 5.5/3600
    long <- longitude - 8.8/3600
    res <- data.frame(latitude = lat, longitude = long)
    return(res)
}