\name{plotMclust}
 \alias{plotMclust}
 \title{Plots the Gaussian fitted  by \code{\link[mclust]{Mclust}}}
 \usage{
   plotMclust(mc, data)
 }
 \arguments{
   \item{mc}{The result of Mclust function applied to
   argument \code{data}}
 
   \item{data}{The vector of numeric values on which was
   applied Mclust}
 }
 \value{
   NULL
 }
 \description{
   Given a result of function Mclust applied on a numeric
   vector, this function add the fitted Gaussian to a
   previous plot. This is an internal function called by
   \code{plotPosSamplesInComp}.
 }
 \details{
   This function can only deal with at the most three
   Gaussian.
 }
 \examples{
 ## create a mix of two Gaussian
 v <-c(rnorm(80,mean=-0.5,sd=1),rnorm(80,mean=1,sd=0.2))
 ## apply Mclust
 mc <- Mclust(v)
 ## plot fitted Gaussian on histogram of v
 hist(v, freq=FALSE)
 MineICA:::plotMclust(mc=mc,data=v)
 }
 \author{
   Anne Biton
 }
 \keyword{internal}