R/WGS84UTM_TO_HK80UTM.R

In HK80: Conversion Tools for HK80 Geographical Coordinate System

WGS84UTM_TO_HK80UTM <-
function(N, E, zone = c(49, 50)){
    ### The unit for N and E is meter
    if(zone == 49){
        res.N <- N + 195
        res.E <- E - 245
    }
    if(zone == 50){
        res.N <- N + 205
        res.E <- E - 260
    }
    return(data.frame(N = res.N, E = res.E, zone = zone))
}