as.radians <- function(degrees) {
   radians <- degrees * (pi / 180)
}

as.degrees <- function(radians) {
   radians <- radians * (180 / pi)
}