\title{Plots the Gaussian fitted  by \code{\link[mclust]{Mclust}}}
  plotMclust(mc, data)
  \item{mc}{The result of Mclust function applied to
  argument \code{data}}

  \item{data}{The vector of numeric values on which was
  applied Mclust}
  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
  This function can only deal with at the most three
## 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)
  Anne Biton