R/A1SecondDerivative.R

In apjmason/circular: Circular Statistics

Defines functions A1SecondDerivative

Documented in A1SecondDerivative

A1SecondDerivative <- function(kappa) {
  result <- A1(kappa=kappa)/kappa^2 - A1FirstDerivative(kappa=kappa)*(2*A1(kappa=kappa)+(1/kappa))
  return(result)
}