# NOT RUN {
coord <- c("N 43<U+00B0>27'30\"", "N43<U+00B0>27'30\"", "43<U+00B0>27'30\"N",
"43<U+00B0> 27' 30\" N", "43 <U+00B0> 27 ' 30 \" N",
"43<U+00B0>27'30\"", "43<U+00B0>27.5'")
cat(coord, sep = "\n")
geoTrans(coord)
geoTrans("43 D 27.5'", degsym = "D")
geoTrans("43<U+00B0> 27' 30\" S")
XL <- c(100.6417, 102.9500)
YL <- c(11.55833, 14.51667)
cat(geoTrans2(XL, YL, dropzero = TRUE), sep = "\n")
cat(geoTrans2(XL, YL, latex = TRUE), sep = "\\\n")
# }
Run the code above in your browser using DataLab