R/givenExpression.R

Defines functions givenExpression

Documented in givenExpression

# modification on git from copied files
givenExpression <- function(cD) {
    nelik = exp(rowSums(log(1 - exp(cD@locLikelihoods)), na.rm = TRUE))
    cD@posteriors <- (cD@posteriors) + log(1 - nelik)
    cD@nullPosts <- matrix(log(nelik), ncol = 1)
    cD
}

Try the segmentSeq package in your browser

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

segmentSeq documentation built on May 2, 2018, 4:12 a.m.