R/pcardio.R

In Directional: A Collection of Functions for Directional Data Analysis

Defines functions pcardio

Documented in pcardio

pcardio <- function(u, m, rho, rads = FALSE) {
  if ( !rads )  {
    u <- u * pi / 180
    m <- m * pi / 180
  }
  0.5 * u / pi + rho / pi * ( sin(u - m) + sin(m) )
}

Try the Directional package in your browser