R/Local_LL.r

In logcondens: Estimate a Log-Concave Probability Density from Iid Observations

Defines functions Local_LL

Documented in Local_LL

Local_LL <- function(x, w, phi) {
  n <- length(x)
  dx <- diff(x)
  L <- sum(w * phi) - sum(dx * J00(phi[1:(n - 1)], phi[2:n]))
  return(L)
}

Try the logcondens package in your browser