\name{parseParameterSet}
\alias{parseParameterSet}
\alias{xmlParameterSet}
\title{Translates a parameterVector to/from StatShop XML}
\usage{ 
parseParameterSet(xNode)
}

\arguments{
  \item{xNode}{\code{XMLNode} corresponding to a
    \code{<ParameterSet>} element.}
}
\description{
  This decodes a \code{<ParameterSet>} element from a Graphical Model
  (GM) file and produces a  \code{parameterVector} object.
}
\author{Russell Almond}
\references{
  \url{http://research.ets.org/~ralmond/StatShop/dataFormats.html}
}
\seealso{
  \code{\link[XML]{XMLNode}}, \code{\link{distribution}},
  \code{\link{parseDist}}, \code{\link{parameterVector}},
  \code{\link{getEMParametersForAMD}},\code{\link{getLMParametersForAMD}}
}
\examples{
  ## Building a parameter set object, please bear with us.
  pnames <- c("Task Difficulty", "Relative Importance(Reading)",
              "Level Difficulty Increment(Outcome_R,Very Good)",
              "Level Difficulty Increment(Outcome_R,Good)")
  pvalue <- c(0,0.405,0.4837,0.4837)
  names(pvalue) <- pnames

  pcov <- matrix(0,nrow=length(pnames),ncol=length(pnames),
             dimnames=list(pnames,pnames))
  diag(pcov) <- c(0.3164,0.0207, 0.01, 0.01)

  ps <- parameterVector(pvalue,"SkillRead1.Outcome_R",pcov)

  psnode <- xmlParameterSet(ps)
  ps1 <- parseParameterSet(psnode)

  \dontshow{
    ## Identifier comes from enclosing model, not XML element.
    ps1$identifier <- "SkillRead1.Outcome_R"
    identical(ps,ps1)
  }

}
\keyword{interface}