Hi everybody,
I am new to this group, new to R and lavaan so please bear with me...
I want to read a SPSS datafile into R lavaan. I want to conduct a CFA to test the dimensionality of four factors and afterwards applying an IRT model to investigate the testinformation of a personality questionnaire.
However, I have some trouble to load the SPSS file into R, see below. My question is: Is anybody familiar with this error and could help?
Best,
Daria
This is my code:
install.packages("lavaan", dependencies = TRUE)
install.packages("quadprog", dependencies = TRUE)
library(lavaan)
library(foreign)
## read in DAPP SPSS file
dappsfa <- read.spss(file.choose(), use.value.labels=F, to.data.frame=T)
dappsfa <- read.spss('DAPP-SF-A.ONLY.sav', use.value.labels=F, to.data.frame=T)
head(dappsfa)
summary(dappsfa)
str(dappsfa)
And this is the error message I receive:
re-encoding from latin-9
Warning message:
In read.spss(file.choose(), use.value.labels = F, to.data.frame = T) :
/Users/Daria/UvA/ResearchMSc/Thesis 2/DATA/DATA.BackUp/IRT DAPP-SF-A.ONLY.sav: Unrecognized record type 7, subtype 18 encountered in system file
I get some output for the head, summary and string function, though. Using the following syntax to fit the forst factor, the summary function gives no output. I assume that this might be asscoicated with error loading the spss file??
dappsfaED <- ' emodys =~ dappa18 + dappa20 + dappa31 + dappa67 + dappa81 + dappa102 + dappa105 + dappa123 +
dappa4 + dappa19 + dappa47 + dappa80 + dappa118 + dappa142 +
dappa9 + dappa125 + dappa129 + dappa140 + dappa141 + dappa144 +
dappa1 + dappa21 + dappa28 + dappa85 + dappa89 + dappa95 + dappa106 + dappa109 +
dappa35 + dappa38 + dappa46 + dappa52 + dappa91 + dappa107 + dappa115 + dappa130 + dappa132 + dappa138 +
dappa22 + dappa55 + dappa66 + dappa87 + dappa98 + dappa122 +
dappa7 + dappa16 + dappa29 + dappa121 + dappa135 + dappa136 +
dappa5 + dappa8 + dappa10 + dappa15 + dappa61 + dappa71 + dappa83 + dappa139 +
dappa23 + dappa32 + dappa33 + dappa86 + dappa103 + dappa108 +
dappa13 + dappa42 + dappa48 + dappa51 + dappa69 + dappa72 + dappa79 + dappa88 +
dappa11 + dappa27 + dappa37 + dappa44 + dappa84 + dappa128'
fit <- cfa(dappsfaED, data = dappsfa,
std.lv=TRUE,
ordered=c("dappa18","dappa20","dappa31","dappa67","dappa81","dappa102","dappa105","dappa123",
"dappa4","dappa19","dappa47","dappa80","dappa118","dappa142",
"dappa9","dappa125","dappa129","dappa140","dappa141","dappa144",
"dappa1","dappa21","dappa28","dappa85","dappa89","dappa95","dappa106","dappa109",
"dappa35","dappa38","dappa46","dappa52","dappa91","dappa107","dappa115","dappa130","dappa132","dappa138",
"dappa22","dappa55","dappa66","dappa87","dappa98","dappa122",
"dappa7","dappa16","dappa29","dappa121","dappa135","dappa136",
"dappa5","dappa8","dappa10","dappa15","dappa61","dappa71","dappa83","dappa139",
"dappa23","dappa32","dappa33","dappa86","dappa103","dappa108",
"dappa13","dappa42","dappa48","dappa51","dappa69","dappa72","dappa79","dappa88",
"dappa11","dappa27","dappa37","dappa44","dappa84","dappa128"))
summary(fit, fit.measures = TRUE, standardized=TRUE )