swh:1:snp:81eadaa089e8253d8469bcef66aa332632c6c669
Tip revision: bf076735a09836a6103775a9d4efaf8f0ecad928 authored by Hans W. Borchers on 02 December 2018, 07:00:03 UTC
version 2.2.2
version 2.2.2
Tip revision: bf07673
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) )
}