R/paramExtract.R

In hmm.discnp: Hidden Markov Models with Discrete Non-Parametric Observation Distributions

Defines functions paramExtract

Documented in paramExtract

paramExtract <- function(Rho) {
    lvls <- levels(Rho$y)
    m    <- length(lvls)
    lm   <- lvls[m]
    ok   <- Rho$y!=lm
    as.vector(as.matrix(Rho[ok,-(1:2)]))
}

Try the hmm.discnp package in your browser