Displaying 1 result from an estimated 1 matches for "scale1_var".
Did you mean:
scale1_vars
2008 May 30
0
imputationlist, update, and recode
...I've been trying)
vars_to_impute = c("var1", ... "var50")
imputed <- amelia(data=vars_to_impute, m=5, outname="miset")
files.allmisets <- list.files(getwd(),pattern="miset*",full=TRUE)
allmis <- imputationList(lapply(files.allmisets, read.csv))
scale1_vars <- c("var1", "var2", "var3", ... "var20")
scale2_vars <- c("var21", "var22", "var23", ... "var34")
allmis <- update(allmis, myscale1 = rowMeans(allmis[scale1_vars],
na.rm=TRUE))
allmis <- update(allmis, my...