> wdir <- "C:/Users/vlado/DL/data/PEW/religion"
> setwd(wdir)
> library(foreign)
> D <- read.spss("Eastern Europe Public Data_12.5 CHECKED.sav", to.data.frame=TRUE)
> N <- names(D)
> LU <- c( "qcurrelarmrec", "qcurrelbelrec", "qcurrelbosrec", "qcurrelbulrec", "qcurrelcrorec",
+ "qcurrelczerec", "qcurrelestrec", "qcurrelgeorec", "qcurrelgrerec", "qcurrelhunrec",
+ "qcurrelkazrec", "qcurrellatrec", "qcurrellitrec", "qcurrelmolrec", "qcurrelpolrec",
+ "qcurrelromrec", "qcurrelrusrec", "qcurrelserrec", "qcurrelukrrec" )
> CU <- rep(NA,n)
> for(s in LU){E <- as.character(D[[s]]); I <- is.na(CU); CU[I] <- E[I]}
> table(CU)
> CU[CU=="Soemthing else/other"] <- "Something else/other"
> table(CU)
> LC <- c( "qchrelarmrec", "qchrelbelrec", "qchrelbosrec", "qchrelbulrec", "qchrelcrorec",
+ "qchrelczerec", "qchrelestrec", "qchrelgeorec", "qchrelgrerec", "qchrelhunrec",
+ "qchrelkazrec", "qchrellatrec", "qchrellitrec", "qchrelmolrec", "qchrelpolrec",
+ "qchrelromrec", "qchrelrusrec", "qchrelserrec", "qchrelukrrec" )
> CC <- rep(NA,n)
> for(s in LC){E <- as.character(D[[s]]); I <- is.na(CC); CC[I] <- E[I]}
> table(CC)
> M <- data.frame(ID=D$CASEID,country=D$COUNTRY,gayMar=D$Q10,abort=D$Q11,reLead=D$Q13,
+ genre=D$QGEN,age=D$QAGE,marr=D$QMARRIED,cuRel=CU,chRel=CC)
> head(M)
> write.csv(M,"religion.csv",fileEncoding="UTF-8")
