R/ad.R

In spc4sts: Statistical Process Control for Stochastic Textured Surfaces

Defines functions ad

Documented in ad

ad <- function(r, P) {

  n <- length(r)

  P <- c(P)[order(c(r))]

  P_rev <- 1 - rev(P)

  -n - sum(seq(1, 2*n, 2)*log(P * P_rev))/n

}

Try the spc4sts package in your browser