R/LocalNormalize.r

Defines functions LocalNormalize

Documented in LocalNormalize

LocalNormalize <- function(x, phi) {
  n <- length(x)
  dx <- diff(x)
  phi_new <- phi - log(sum(dx * J00(phi[1:(n - 1)], phi[2:n])))
  return(matrix(phi_new, ncol = 1))
}

Try the logcondens package in your browser

Any scripts or data that you put into this service are public.

logcondens documentation built on Aug. 22, 2023, 5:06 p.m.