R/fixTau.R

Defines functions fixTau

Documented in fixTau

fixTau <- function(tpm) {
    K   <- nrow(tpm)
    A   <- t(apply(tpm,1,p2expForm))
    tau <- as.vector(A[,-K])
    names(tau) <- paste0("tau",row(tpm)[,-K],col(tpm)[,-K])
    tau
}

Try the eglhmm package in your browser

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

eglhmm documentation built on May 29, 2024, 1:20 a.m.