\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}