\name{subset.survey.design}
\alias{subset.survey.design}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{
	Create a svydesign object consisting of a particular subset.
}
\description{
	For internal use only.
}
\usage{
subset.survey.design(survey.design, subset.call)
}
%- maybe also 'usage' for other objects documented here.
\arguments{
  \item{survey.design}{
%%     ~~Describe \code{survey.design} here~~
}
  \item{subset.call}{
%%     ~~Describe \code{subset.call} here~~
}
}
\author{
	Daniel Oberski <daniel.oberski@gmail.com>
}

\seealso{
	\code{\link{lavaan.survey}}
}
\examples{
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (survey.design, subset.call) 
{
    log <- eval(substitute(subset.call), envir = survey.design$variables, 
        enclos = parent.frame())
    survey.design$cluster <- subset(survey.design$cluster, log)
    survey.design$strata <- subset(survey.design$strata, log)
    survey.design$prob <- survey.design$prob[log]
    survey.design$allprob <- subset(survey.design$allprob, log)
    survey.design$variables <- subset(survey.design$variables, 
        log)
    survey.design$fpc$sampsize <- subset(survey.design$fpc$sampsize, 
        log)
    survey.design
  }
}
% Add one or more standard keywords, see file 'KEYWORDS' in the
% R documentation directory.
\keyword{survey}