# Created by Miha 3. 12. 2019 #===========================================================================# # Rekodiranje posameznih postavk za potrebe računanja posameznih dejavnikov # #===========================================================================# #----------------------------------------- DESCRIPTION -------------------------------------------# # Navodila: # 1. najprej je treba izvesti sintakso za prekodiranje negativnih trditev # 2. nato izračun dejavnikov, # 3. nato izračun LF iz LF_raw; # 4. LF se uporabi tako, da se vsakemu dejavniku prištejete vrednost LF (-1, 0, ali 1) # 5. Prekodiranje dejavnikov po ključu od vrstice 29 naprej oziroma od vrstice 61 naprej #(poenostavljen prikaz - en tip ključa je rumen, drugi oranžen, tretji rdeč). # 6. Prikaz rezultatov za 11 dejavnikov na način kot je izvedeno v PEQM testu v tretjem grafikonu: #---------------------------------------- DESCRIPTION ------------------------------------------------# #====================# # Začenmo s sintakso # #====================# # Deklariramo podatke za rekodiranje recode.data <- podatki #------- 1. najprej je treba izvesti sintakso za prekodiranje negativnih trditev --------# # Postavke, ki jih je potrebno prerekodirati rec.neg <- c("Var013", "Var022", "Var029", "Var030", "Var037", "Var052", "Var056", "Var064") # Rekodiranje spremenljivk recode.data[, rec.neg] <- lapply( recode.data[, rec.neg] , FUN = function(x) recode(x, "1=4;2=3;3=2;4=1") ) #----- //1. najprej je treba izvesti sintakso za prekodiranje negativnih trditev// ------# #----------------------------- KORAKI OD 1 - 6 ---------------------------------# # Izračun dejavnikov in faktorja LF (seštevek ocen) # Dejavnik LF_raw (8 postavk) ------------------------------ LF_raw <- sum(as.numeric(recode.data[c("Var008", "Var016", "Var026", "Var034", "Var042", "Var050", "Var058", "Var066")], na.rm = TRUE)) # Iz LF_raw izračunamo LF, ki se prišteje k vsakemu dejavniku: # Faktor lažnivosti - vzeto iz PEQM: # IF (LF_raw <=11) LF = 1. # IF (LF_raw >=29) LF = -1. # IF (LF_raw >11 AND LF_raw<29) LF=0. # * Faktor lažnjivosti 8-11 =1, 12-28 =0, 29+ = -1. LF <- ifelse(LF_raw <= 11, 1, ifelse(LF_raw >= 29, -1, ifelse(LF_raw > 11 & LF_raw < 29, 0, NA))) # Dejavnik COM (6 postavk) --------------------------------- COM <- sum(as.numeric(recode.data[c("Var001", "Var013", "Var025", "Var038", "Var051", "Var063")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu COM <- recode(COM, "lo:14=1;15=2;16=3;17=4;18=5;19=6;20=7;21=8;22:23=9;24:hi=10") # Dejavnik RES (5 postavk) --------------------------------- RES <- sum(as.numeric(recode.data[c("Var002", "Var014", "Var027", "Var039", "Var052")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu RES <- recode(RES, "lo:9=1;11=2;12=3;13=4;14=5;15=6;16=7;17=8;18:19=9;20:hi=10") # Dejavnik LOY (6 postavk) --------------------------------- LOY <- sum(as.numeric(recode.data[c("Var003", "Var015", "Var028", "Var040", "Var053", "Var064")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu LOY <- recode(LOY, "lo:14=1;15=2;16=3;17=4;18=5;19=6;20=7;21=8;22:23=9;24:hi=10") # Dejavnik LOY (5 postavk) --------------------------------- INI <- sum(as.numeric(recode.data[c("Var004", "Var017", "Var029", "Var041", "Var054")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu INI <- recode(INI, "lo:9=1;11=2;12=3;13=4;14=5;15=6;16=7;17=8;18:19=9;20:hi=10") # Dejavnik PRO (5 postavk) --------------------------------- PRO <- sum(as.numeric(recode.data[c("Var005", "Var018", "Var030", "Var043", "Var055")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu PRO <- recode(PRO, "lo:9=1;11=2;12=3;13=4;14=5;15=6;16=7;17=8;18:19=9;20:hi=10") # Dejavnik REL (8 postavk) --------------------------------- REL <- sum(as.numeric(recode.data[c("Var006", "Var019", "Var031", "Var044", "Var056", "Var065", "Var071", "Var073")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu REL <- recode(REL, "lo:22=1;23=2;24=3;25=4;26=5;27=6;28=7;29=8;30:31=9;32:hi=10") # Dejavnik QLT (8 postavk) --------------------------------- QLT <- sum(as.numeric(recode.data[c("Var007", "Var020", "Var032", "Var045", "Var057", "Var067", "Var072", "Var074")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu QLT <- recode(QLT, "lo:22=1;23=2;24=3;25=4;26=5;27=6;28=7;29=8;30:31=9;32:hi=10") # Dejavnik CPT (5 postavk) --------------------------------- CPT <- sum(as.numeric(recode.data[c("Var009", "Var021", "Var033", "Var046", "Var059")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu CPT <- recode(CPT, "lo:9=1;11=2;12=3;13=4;14=5;15=6;16=7;17=8;18:19=9;20:hi=10") # Dejavnik FLX (6 postavk) --------------------------------- FLX <- sum(as.numeric(recode.data[c("Var010", "Var022", "Var035", "Var047", "Var060", "Var068")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu FLX <- recode(FLX, "lo:14=1;15=2;16=3;17=4;18=5;19=6;20=7;21=8;22:23=9;24:hi=10") # Dejavnik IMP (6 postavk) --------------------------------- IMP <- sum(as.numeric(recode.data[c("Var011", "Var023", "Var036", "Var048", "Var061", "Var069")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu IMP <- recode(IMP, "lo:14=1;15=2;16=3;17=4;18=5;19=6;20=7;21=8;22:23=9;24:hi=10") # Dejavnik ENE (6 postavk) --------------------------------- ENE <- sum(as.numeric(recode.data[c("Var012", "Var024", "Var037", "Var049", "Var062", "Var070")], na.rm = TRUE)) + LF # Prekodiranje dejavnikov po ključu ENE <- recode(ENE, "lo:14=1;15=2;16=3;17=4;18=5;19=6;20=7;21=8;22:23=9;24:hi=10")