R/mixtools.utils.R

Defines functions dnorm_mixture

dnorm_mixture <- function(x, mixfit) {
  Reduce('+', lapply(1:length(mixfit$lambda), function(i) mixfit$lambda[i] * dnorm(x, mixfit$mu[i], mixfit$sigma[i])))
}
helen-zhu/ConsensusPeaks documentation built on Dec. 25, 2021, 9:39 a.m.