R/acceptance_rate.R
In BGPhazard: Markov Beta and Gamma Processes for Modeling Hazard Rates

# Not exported
acceptance_rate <- function(.x) {
  len_x <- length(.x)
  
  s <- sum(.x[1:(len_x-1)] == .x[2:len_x])
  
  return(1 - s/(len_x - 1))
}

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

BGPhazard documentation built on Sept. 3, 2023, 5:09 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the BGPhazard package in your browser