R/Mstep.pois.R

In HiddenMarkov: Hidden Markov Models

Defines functions Mstep.pois

Documented in Mstep.pois

Mstep.pois <- function(x, cond, pm, pn){
    lambda <- as.numeric(matrix(x, nrow=1) %*% cond$u)/
                  apply(cond$u, MARGIN=2, FUN=sum)
    return(list(lambda=lambda))
}

Try the HiddenMarkov package in your browser