Nothing

```
#' @title Approximate Correlation between Continuous Mixture Variable M1 and Random Variable Y
#'
#' @description This function approximates the expected correlation between a continuous mixture variables \eqn{M1} and another random
#' variable \eqn{Y} based on the mixing proportions, component means, and component standard deviations of \eqn{M1} and correlations
#' between components of \eqn{M1} and \eqn{Y}. The equations can be found in the \strong{Expected Cumulants and Correlations for
#' Continuous Mixture Variables} vignette. This function can be used to see what combination of correlations between components
#' of \eqn{M1} and \eqn{Y} gives a desired correlation between \eqn{M1} and \eqn{Y}.
#'
#' @param mix_pis a vector of mixing probabilities that sum to 1 for component distributions of \eqn{M1}
#' @param mix_mus a vector of means for component distributions of \eqn{M1}
#' @param mix_sigmas a vector of standard deviations for component distributions of \eqn{M1}
#' @param p_M1Y a vector of correlations between the components of \eqn{M1} and \eqn{Y}; i.e.,
#' \code{p_M1Y[1]} is the correlation between the 1st component of \eqn{M1} and \eqn{Y}
#'
#' @export
#' @seealso \code{\link[SimCorrMix]{rho_M1Y}}
#' @keywords mixture correlation
#' @return the expected correlation between M1 and Y
#' @references
#' Please see references for \code{\link[SimCorrMix]{rho_M1M2}}.
#'
#' @examples
#' # M1 is mixture of N(-2, 1) and N(2, 1); pairwise correlation set to 0.35
#' rho_M1Y(mix_pis = c(0.4, 0.6), mix_mus = c(-2, 2), mix_sigmas = c(1, 1),
#' p_M1Y = c(0.35, 0.35))
#'
rho_M1Y <- function(mix_pis = NULL, mix_mus = NULL, mix_sigmas = NULL,
p_M1Y = NULL) {
Var <- sum(mix_pis * (mix_sigmas^2 + mix_mus^2)) - (sum(mix_pis * mix_mus))^2
rhoM1Y <- sum(mix_pis * mix_sigmas * p_M1Y)/sqrt(Var)
rhoM1Y
}
```

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

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.