new file mode 100644

@@ -0,0 +1,40 @@

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

+