cartesian | R Documentation |
With this function it is possible to convert from Geographic coordinate to Cartesian coordinate and obtain the decimal precision that you assign.
cartesian(a, longlat_df, digits = 4)
a |
Selection of Ellipsoid. |
longlat_df |
Point name, Sexagesimal longitude and latitude as dataframe. |
digits |
Number of digits are |
data.frame with the data in the following order: "Pt", "X", "Y", "Z".
create data frame of epsg codes by epsg <- rgdal::make_EPSG()
https://github.com/OSGeo/PROJ & https://github.com/cran/rgdal
# Point name Pto <- "St1" # Longitude g <- -71 m <- 18 s <- 44.86475 # Value in sexagesimal sexa_long <- sexagesimal(g,m,s) # Latitude g <- -33 m <- 38 s <- 30.123456 # Value in sexagesimal sexa_lat <- sexagesimal(g, m, s) print(sexa_lat) # ELLIPSOIDAL HEIGHT (h) h <- 31.885 # Longitude and Latitude as data.frame longlat_df <- data.frame(Pto, sexa_long, sexa_lat, h) # To know the ellipsoids and the order open the Ellipsoids in the package # and look for it number Ellip <- Ellipsoids #View(Ellip) # We choose the number 5 which is GRS80 value <- cartesian(5, longlat_df, digits = 4) print(value)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.