swh:1:snp:81eadaa089e8253d8469bcef66aa332632c6c669
Tip revision: 1305bf51cc38adca02d0c8a834c61a4c7e038309 authored by Hans W. Borchers on 08 February 2015, 00:00:00 UTC
version 1.8.3
version 1.8.3
Tip revision: 1305bf5
deg2rad.R
##
## d e g 2 r a d . R Angle Conversion
##
deg2rad <- function(deg) {
stopifnot(is.numeric(deg))
( rad <- (pi/180)*deg )
}
rad2deg <- function(rad) {
stopifnot(is.numeric(rad))
( deg <- rad/(pi/180) )
}