diff options
| author | Anton Luka Šijanec <anton@sijanec.eu> | 2024-05-27 13:12:17 +0200 |
|---|---|---|
| committer | Anton Luka Šijanec <anton@sijanec.eu> | 2024-05-27 13:12:17 +0200 |
| commit | f1ab2f022fdc780aca0944d90e9a0e844a0820d7 (patch) | |
| tree | 79942a40514f5ab40c5901349c9fcd30c6c8dc0e /admin/survey/modules/mod_kakovost/R/calc.usability.R | |
| parent | 2024-02-19 upstream (diff) | |
| download | 1ka-master.tar 1ka-master.tar.gz 1ka-master.tar.bz2 1ka-master.tar.lz 1ka-master.tar.xz 1ka-master.tar.zst 1ka-master.zip | |
Diffstat (limited to 'admin/survey/modules/mod_kakovost/R/calc.usability.R')
| -rw-r--r-- | admin/survey/modules/mod_kakovost/R/calc.usability.R | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/admin/survey/modules/mod_kakovost/R/calc.usability.R b/admin/survey/modules/mod_kakovost/R/calc.usability.R deleted file mode 100644 index 4e4bb0c..0000000 --- a/admin/survey/modules/mod_kakovost/R/calc.usability.R +++ /dev/null @@ -1,72 +0,0 @@ -calc.usability <- function(m.all, return.type){
- # return.type:
- # 1: return only absolute
- # 2: return only %
- # 3: return both (even rows: absolute, odd rows: %)
-
- ## calculations
- m.all[, Prekinitve:=v3]
- m.all[, Neodgovori:=v1]
- m.all[, Nevsebinski:=v96+v97+v98+v99]
- m.all[, Izpostavljen:=allqs-(v2+v3+v4+v5)]
- setnames(m.all, "va", "Veljavni")
-
- m.all[, UNL:=Neodgovori/Izpostavljen]
- m.all[is.na(UNL)==T, UNL:=0]
- m.all[, UML:=(v3/allqs)+(1-(v3/allqs))*UNL]
- m.all[, UCL:=1-UML]
- m.all[, UIL:=v2/(v2+Izpostavljen)]
- m.all[is.na(UIL)==T, UIL:=0]
- m.all[, UAQ:=v4/allqs]
-
- m.all[, Uporabnost:=1-UML]
-
- #tidy up
- setcolorder(m.all, c("recnum", "allqs", "Veljavni", "Nevsebinski", "Neodgovori",
- "Izpostavljen", "Prekinitve", "Uporabnost",
- "v1", "v2", "v3", "v4", "v5", "v96", "v97", "v98", "v99",
- "UNL", "UML", "UCL", "UIL", "UAQ"))
-
- if(return.type==1){
- return(m.all)
- }else{
- m.all.p <- copy(m.all)
-
- m.all.p[, (c("Veljavni", "Nevsebinski", "Neodgovori")) := lapply(.SD, "/", m.all.p$Izpostavljen), .SDcols=c("Veljavni", "Nevsebinski", "Neodgovori")]
- m.all.p[, (c("Prekinitve", "v1", "v2", "v3", "v4", "v5", "v96", "v97", "v98", "v99")) := lapply(.SD, "/", m.all.p$allqs), .SDcols=c("Prekinitve", "v1", "v2", "v3", "v4", "v5", "v96", "v97", "v98", "v99")]
- m.all.p[, Izpostavljen:=1]
-
- if(return.type==2){
- return(m.all.p)
- }else{
- m.all[, Uporabnost:=Veljavni]
- m.all[, c("UNL", "UML", "UCL", "UIL", "UAQ"):=NA]
- m.all <- m.all[, lapply(.SD, as.character)]
-
- m.all.p[, allqs:=NA]
- m.all.p[, allqs:=as.character(allqs)]
-
- change.cols <- c("Veljavni", "Nevsebinski", "Neodgovori", "Izpostavljen", "Prekinitve", "Uporabnost",
- "v1", "v2", "v3", "v4", "v5", "v96", "v97", "v98", "v99",
- "UNL", "UML", "UCL", "UIL", "UAQ")
- m.all.p[, (change.cols):=lapply(.SD, function(x){paste0(round(x*100, 0), "%")}), .SD=change.cols]
-
- m.1ka <- data.table(matrix("", nrow=nrow(m.all)*2, ncol=ncol(m.all)))
-
- a.rows <- as.integer(seq(1, nrow(m.1ka), by=2))
- p.rows <- as.integer(seq(2, nrow(m.1ka), by=2))
-
- set(m.1ka, a.rows, 1:ncol(m.1ka), value=m.all)
- suppressWarnings(set(m.1ka, p.rows, 1:ncol(m.1ka), value=m.all.p))
-
- setnames(m.1ka, colnames(m.all))
- m.1ka[, Status:=NA_character_]
- setcolorder(m.1ka, c("recnum", "allqs", "Veljavni", "Nevsebinski", "Neodgovori",
- "Izpostavljen", "Prekinitve", "Uporabnost", "Status",
- "v1", "v2", "v3", "v4", "v5", "v96", "v97", "v98", "v99",
- "UNL", "UML", "UCL", "UIL", "UAQ"))
-
- return(m.1ka)
- }
- }
-}
\ No newline at end of file |