\name{fitted.statfacmodBurSt}
\alias{fitted.statfacmodBurSt}
\title{ Variance Matrix From Statistical Factor Model }
\description{
Takes a statistical factor model object and produces the variance matrix
that it represents.
}
\usage{
fitted.statfacmodBurSt(object)
}
\arguments{
  \item{object}{ 
	an object of class \code{statfacmodBurSt}.
	}
}
\value{
the variance matrix represented by the factor model.
}

\section{Revision }{
Last revised 2003 Mar 17.
}

\author{ Burns Statistics }

\seealso{ 
\code{\link{factor.model.stat}}.
}

\examples{
varfac <- factor.model.stat(retmat, nfac=0, zero=T, output="fact")
# perhaps modify loadings and uniquenesses for missing values
varian2 <- fitted(varfac) # get matrix from factor model
}