Skip to main content

Browse the archive

Revision c1688b374d201c13fb40b4dda2d2a89e34b94ec6 authored by Hans W. Borchers on 23 January 2021, 09:10:02 UTC, committed by cran-robot on 23 January 2021, 09:10:02 UTC 
version 2.3.3
1 parent e970b8e
Raw File
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) )
}
back to top