https://github.com/cran/lavaan.survey
Raw File
Tip revision: a82892b9a66bd4a08d9daa41ce579446d05d6b87 authored by Daniel Oberski on 22 December 2016, 22:43 UTC
version 1.1.3.1
Tip revision: a82892b
ess.dk.Rd
\name{ess.dk}
\alias{ess.dk}
\docType{data}
\title{
Subset of four variables and interviewer number from the 
European Social Survey, round 4 (2008) Danish sample. 
}
\description{
	Consists of indices of political and social trust, political efficacy, and 
	fear of crime. The interviewer number was also recorded. 
	
	The ESS round 4 in Denmark was a face-to-face probability survey 
	with simple random sampling.
}
\usage{data(ess.dk)}
\format{
  A data frame with 1546 observations of 6 variables.
  \describe{
    \item{\code{idno}}{Respondent identifier}
    \item{\code{intnum}}{Interviewer identifier}
    \item{\code{socialTrust}}{Sum of three 0-10 social trust items.}
    \item{\code{efficacy}}{Sum of two 1-5 items measuring "internal political efficacy".}
    \item{\code{systemTrust}}{Sum of three 0-10 political trust items.}
    \item{\code{fearCrime}}{Sum of three 1-4 items measuring fear of crime.}
   }
}
\source{
This dataset was retrieved from \url{http://ess.nsd.uib.no/ess/round4/} and converted to an R dataset.
}
\references{
	Jowell, R., Roberts, C., Fitzgerald, R., & Eva, G. (2007). 
		Measuring attitudes cross-nationally: Lessons from the european social survey. SAGE.
    
  Oberski, D.L. (2014). lavaan.survey: An R Package for Complex Survey Analysis
    of Structural Equation Models. Journal of Statistical Software, 57(1), 1-27.
    \url{http://www.jstatsoft.org/v57/i01/}.
}
\seealso{
\code{\link{lavaan.survey}}
}
\examples{
data(ess.dk)
head(ess.dk)

# A saturated model with reciprocal effects from Saris & Gallhofer (2007)
dk.model <- "
  socialTrust ~ 1 + systemTrust + fearCrime
  systemTrust ~ 1 + socialTrust + efficacy
  socialTrust ~~ systemTrust
"
lavaan.fit <- lavaan(dk.model, data=ess.dk, auto.var=TRUE, estimator="MLM")
summary(lavaan.fit)

# Create a survey design object with interviewer clustering
survey.design <- svydesign(ids=~intnum, prob=~1, data=ess.dk)

survey.fit <- lavaan.survey(lavaan.fit=lavaan.fit, survey.design=survey.design)
summary(survey.fit)
}
\author{
  Daniel Oberski - \url{http://daob.org} - \email{daniel.oberski@gmail.com}
}
back to top