221 lines
7.7 KiB
R
221 lines
7.7 KiB
R
|
# Created by Miha 3. 12. 2019
|
|||
|
|
|
|||
|
|
#===========================================================================#
|
|||
|
|
# Rekodiranje posameznih postavk za potrebe ra<72>unanja posameznih dejavnikov #
|
|||
|
|
#===========================================================================#
|
|||
|
|
#----------------------------------------- DESCRIPTION -------------------------------------------#
|
|||
|
|
# Navodila:
|
|||
|
|
# 1. najprej je treba izvesti sintakso za prekodiranje negativnih trditev
|
|||
|
|
# 2. nato izra<72>un dejavnikov,
|
|||
|
|
# 3. nato izra<72>un LF iz LF_raw;
|
|||
|
|
# 4. LF se uporabi tako, da se vsakemu dejavniku pri<72>tejete vrednost LF (-1, 0, ali 1)
|
|||
|
|
# 5. Prekodiranje dejavnikov po klju<6A>u od vrstice 29 naprej oziroma od vrstice 61 naprej
|
|||
|
|
#(poenostavljen prikaz - en tip klju<6A>a je rumen, drugi oran<61>en, tretji rde<64>).
|
|||
|
|
# 6. Prikaz rezultatov za 11 dejavnikov na na<6E>in kot je izvedeno v PEQM testu v tretjem grafikonu:
|
|||
|
|
#---------------------------------------- DESCRIPTION ------------------------------------------------#
|
|||
|
|
|
|||
|
|
#====================#
|
|||
|
|
# Za<5A>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<72>un dejavnikov in faktorja LF (se<73>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<72>unamo LF, ki se pri<72>teje k vsakemu dejavniku:
|
|||
|
|
# Faktor la<6C>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<6C>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<6A>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<6A>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<6A>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<6A>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<6A>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<6A>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<6A>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<6A>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<6A>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<6A>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<6A>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")
|