Nothing
#' Bi-modal normal mixture distribution.
#'
#' @keywords internal
#'
#' @importFrom stats dnorm
GaussMix <- function(x, mu1, mu2, sd1, sd2, pi1, pi2)
{
comp1 <- pi1*stats::dnorm(x, mu1, sd1)
comp2 <- pi2*stats::dnorm(x, mu2, sd2)
return(comp1 + comp2)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.