R/mmpp.R

In HiddenMarkov: Hidden Markov Models

"mmpp" <-
function (tau, Q, delta, lambda, nonstat = TRUE)
{
    y <- c(list(tau=tau, Q=Q, delta=delta, lambda=lambda,
                nonstat=nonstat))
    class(y) <- "mmpp"
    return(y)
}