Я пытаюсь сравнить голландскую анкету с английской анкетой, используя дифференциальное функционирование.Анкета имеет разные шкалы (шкалы с вопросами о предметах бедствия (дисс) с вопросами о предметах шрама (рубца) с вопросами о внешности (приложении) и т. Д. Я использовал пакет lordif и начал работать над DIF. Почти во всех случаяхDIF работал, за исключением 3 из 9 нет. 2 из них - Diss3 en Scar3 (3 месяца после операции). Я использовал код:
data_diss3 <- dif_us_and_nl_disst3[, 1:7] #7 items
group_diss3 <- dif_us_and_nl_disst3[, 8] #8th scale is country
DIF_diss3 <- lordif(data_diss3, group_diss3)
#not working
data_app3 <- dif_us_and_nl_appt3[, 1:9] #9 items
group_app3 <- dif_us_and_nl_appt3[, 10] #10th scale is country
DIF_app3 <- lordif(data_app3, group_app3)
#3 items flagged 2,5,6
data_scar3 <- dif_us_and_nl_scart3[, 1:8] #8 items
group_scar3 <- dif_us_and_nl_scart3[, 9] #9th scale is country
DIF_scar3 <- lordif(data_scar3, group_scar3)
#not working
Я не понимаю, что все весы работают (включая app3) кроме этих 2. Надеюсь, кто-то может мне помочь
row.names(dif_NLt3_diss) <- c(1:139)
row.names(dif_USt3_diss) <- c(140:189)
row.names(dif_NLt3_app) <- c(1:139)
row.names(dif_USt3_app) <- c(140:187)
row.names(dif_NLt3_scar) <- c(1:139)
row.names(dif_USt3_scar) <- c(140:190)
###Merge###
dif_us_and_nl_disst3 <- rbind(dif_NLt3_diss, dif_USt3_diss)
dif_us_and_nl_appt3 <- rbind(dif_NLt3_app, dif_USt3_app)
dif_us_and_nl_scart3 <- rbind(dif_NLt3_scar, dif_USt3_scar)