R/initseq.R

In mcmc: Markov Chain Monte Carlo

Defines functions initseq

Documented in initseq

initseq <- function(x) {
    stopifnot(is.numeric(x))
    stopifnot(is.finite(x))
    .Call(C_initseq, x - mean(x))
}

Try the mcmc package in your browser