R/Viterbi.R

Viterbi <- function (object, ...){
    if (class(object)=="numeric")
        do.call(Viterbihmm, list(object, ...))
    else if (class(object)=="mmpp") stop("Viterbi does not yet have a method for objects of class 'mmpp'.")
    else UseMethod("Viterbi")
}

Try the HiddenMarkov package in your browser

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

HiddenMarkov documentation built on April 27, 2021, 5:06 p.m.