diff options
| author | Anton Luka Šijanec <anton@sijanec.eu> | 2022-01-11 12:35:47 +0100 |
|---|---|---|
| committer | Anton Luka Šijanec <anton@sijanec.eu> | 2022-01-11 12:35:47 +0100 |
| commit | 19985dbb8c0aa66dc4bf7905abc1148de909097d (patch) | |
| tree | 2cd5a5d20d7e80fc2a51adf60d838d8a2c40999e /admin/survey/modules/mod_360_1KA | |
| download | 1ka-19985dbb8c0aa66dc4bf7905abc1148de909097d.tar 1ka-19985dbb8c0aa66dc4bf7905abc1148de909097d.tar.gz 1ka-19985dbb8c0aa66dc4bf7905abc1148de909097d.tar.bz2 1ka-19985dbb8c0aa66dc4bf7905abc1148de909097d.tar.lz 1ka-19985dbb8c0aa66dc4bf7905abc1148de909097d.tar.xz 1ka-19985dbb8c0aa66dc4bf7905abc1148de909097d.tar.zst 1ka-19985dbb8c0aa66dc4bf7905abc1148de909097d.zip | |
Diffstat (limited to 'admin/survey/modules/mod_360_1KA')
16 files changed, 1425 insertions, 0 deletions
diff --git a/admin/survey/modules/mod_360_1KA/R/360_stopinj_1ka.R b/admin/survey/modules/mod_360_1KA/R/360_stopinj_1ka.R new file mode 100644 index 0000000..16b3416 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/R/360_stopinj_1ka.R @@ -0,0 +1,970 @@ +#Sys.setlocale(category = "LC_ALL", locale = "slovenian")
+#Sys.setlocale('LC_CTYPE', 'pl_PL.UTF-8')
+Sys.setlocale(category = "LC_CTYPE", locale = "Slovenian")
+# Potrebne knjinjice
+libraries <- c('tools', 'psych', 'Hmisc', 'reports',
+ 'fmsb','car','Cairo','openxlsx','sqldf','data.table',
+ 'gridExtra','ggplot2','Rcpp','grid','scales')
+lapply(libraries, FUN = function(y) {
+ do.call('require', list(y))})
+
+library(scales)
+# //Potrebne knjinjice// #
+
+# Ustvarimo mape, kamor bomo shranjevali poroilo in pdf grafov
+dir.create('modules/mod_360_1KA/results', showWarnings=FALSE)
+dir.create('modules/mod_360_1KA/results/slike', showWarnings=FALSE)
+
+
+
+# Uvoz podatkov
+podatki <- read.csv2("modules/mod_360_1KA/temp/test.csv",sep=";", header=T, fill=T, stringsAsFactors=FALSE,encoding='UTF-8')
+if (podatki[1,1]==("Ustreznost") | podatki[1,1]==("Relevance")) {podatki <- podatki[2:nrow(podatki),]}
+# Izberemo le veljavne enote (status=6)
+podatki <- subset(podatki, status==6)
+
+
+# Ker bomo raunalni povpreja iz baze odstranimo tudi vse manjkajole vrednosti
+junk <- c("-1","-2", "-3", "-4", "-5")
+# Izberemo vse stolpce, ki se zanejo na rko Q
+sel <- grepl("Q",names(podatki))
+podatki[sel] <- lapply(podatki[sel], function(x) replace(x,x %in% junk, NA))
+podatki <- subset(podatki, !(is.na(Q1)))
+
+
+# Povpreja ocen agregirana glede na razmerje (nadrejeni, podrejeni, samoocenjevalec, sodelavec)
+# Uporabimo v grafih posameznih kompetenc
+razmerjeMean_Q2 <- sqldf("
+ select
+ Q1
+ ,round(avg(Q2a),1) as Q2a
+ ,round(avg(Q2b),1) as Q2b
+ ,round(avg(Q2c),1) as Q2c
+ ,round(avg(Q2d),1) as Q2d
+ ,round(avg(Q2e),1) as Q2e
+ ,round(avg(Q2f),1) as Q2f
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean_Q3 <- sqldf("
+ select
+ round(avg(Q3a),1) as Q3a
+ ,round(avg(Q3b),1) as Q3b
+ ,round(avg(Q3c),1) as Q3c
+ ,round(avg(Q3d),1) as Q3d
+ ,round(avg(Q3e),1) as Q3e
+ ,round(avg(Q3f),1) as Q3f
+ ,round(avg(Q3g),1) as Q3g
+ ,round(avg(Q3h),1) as Q3h
+ ,round(avg(Q3i),1) as Q3i
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean_Q4 <- sqldf("
+ select
+ round(avg(Q4a),1) as Q4a
+ ,round(avg(Q4b),1) as Q4b
+ ,round(avg(Q4c),1) as Q4c
+ ,round(avg(Q4d),1) as Q4d
+ ,round(avg(Q4e),1) as Q4e
+ ,round(avg(Q4f),1) as Q4f
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean_Q5 <- sqldf("
+ select
+ round(avg(Q5a),1) as Q5a
+ ,round(avg(Q5b),1) as Q5b
+ ,round(avg(Q5c),1) as Q5c
+ ,round(avg(Q5d),1) as Q5d
+ ,round(avg(Q5e),1) as Q5e
+ ,round(avg(Q5f),1) as Q5f
+ ,round(avg(Q5g),1) as Q5g
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean_Q6 <- sqldf("
+ select
+ round(avg(Q6a),1) as Q6a
+ ,round(avg(Q6b),1) as Q6b
+ ,round(avg(Q6c),1) as Q6c
+ ,round(avg(Q6d),1) as Q6d
+ ,round(avg(Q6e),1) as Q6e
+ ,round(avg(Q6f),1) as Q6f
+ from podatki
+ group by
+ Q1
+ ")
+
+razmerjeMean <- cbind(razmerjeMean_Q2,razmerjeMean_Q3,razmerjeMean_Q4,razmerjeMean_Q5,razmerjeMean_Q6)
+razmerjeMean <- as.data.frame(lapply(razmerjeMean, as.numeric))
+
+povprecja.razmerij <- razmerjeMean
+#Izraun skupnih povpreij posameznih komponent
+povprecja.razmerij$Q2_komuniciranje <- round(rowMeans(razmerjeMean[grepl("Q2",names(razmerjeMean))],na.rm=T),1)
+povprecja.razmerij$Q3_odlocanje <- round(rowMeans(razmerjeMean[grepl("Q3",names(razmerjeMean))],na.rm=T),1)
+povprecja.razmerij$Q4_vodenje_ravnanje <-round(rowMeans(razmerjeMean[grepl("Q4",names(razmerjeMean))],na.rm=T),1)
+povprecja.razmerij$Q5_vodenje_projektov <- round(rowMeans(razmerjeMean[grepl("Q5",names(razmerjeMean))],na.rm=T),1)
+povprecja.razmerij$Q6_medosebne_vescine <- round(rowMeans(razmerjeMean[grepl("Q6",names(razmerjeMean))],na.rm=T),1)
+
+
+# Povpreja posameznih kompetence glede na razmerje do ocenjevane osebe
+# Skupna povpreja po stolpcih za GRAFE
+# Prikaemo posamezne barplote povprene ocene glede na razmerje
+Q2_komuniciranje <- round(colMeans(razmerjeMean[grepl("Q2",names(razmerjeMean))],na.rm=T),1)
+Q3_odlocanje <- round(colMeans(razmerjeMean[grepl("Q3",names(razmerjeMean))],na.rm=T),1)
+Q4_vodenje_ravnanje <- round(colMeans(razmerjeMean[grepl("Q4",names(razmerjeMean))],na.rm=T),1)
+Q5_vodenje_projektov <- round(colMeans(razmerjeMean[grepl("Q5",names(razmerjeMean))],na.rm=T),1)
+Q6_medosebne_vescine <- round(colMeans(razmerjeMean[grepl("Q6",names(razmerjeMean))],na.rm=T),1)
+## Povpreja kompetenc glede na razmerje do ocenjevane osebe// ##
+
+
+#Skupna povpreja po stolpcih za posamezne TABELE # Skupne ocene
+osnovni.podatki <- podatki
+osnovni.podatki <- as.data.frame(suppressWarnings(lapply(osnovni.podatki, as.numeric)))
+Q2_komuniciranje.skupaj <- round(colMeans(osnovni.podatki[grepl("Q2",names(osnovni.podatki))],na.rm=T),1)
+Q3_odlocanje.skupaj <- round(colMeans(osnovni.podatki[grepl("Q3",names(osnovni.podatki))],na.rm=T),1)
+Q4_vodenje_ravnanje.skupaj <- round(colMeans(osnovni.podatki[grepl("Q4",names(osnovni.podatki))],na.rm=T),1)
+Q5_vodenje_projektov.skupaj <- round(colMeans(osnovni.podatki[grepl("Q5",names(osnovni.podatki))],na.rm=T),1)
+Q6_medosebne_vescine.skupaj <- round(colMeans(osnovni.podatki[grepl("Q6",names(osnovni.podatki))],na.rm=T),1)
+
+# //TABELE # Skupne ocene// #
+
+
+# pretvorba imen stolpcev in vrstic tabel za latex znake
+toLatex <- function(tabela) {
+ if (!is.null(colnames(tabela))) {
+ colnames(tabela) <- Hmisc::latexTranslate(colnames(tabela))
+ }
+ if (!is.null(rownames(tabela))) {
+ rownames(tabela) <- Hmisc::latexTranslate(rownames(tabela))
+ }
+ return(tabela)
+}
+##
+
+##############################
+## Opisne statistike za tabele
+##############################
+# N oz. tevilo odgovorov
+predN <- apply(osnovni.podatki[c(grepl("Q",names(osnovni.podatki)))],2, FUN=function(x) sum(!is.na(x)))
+names(predN) <- paste0(names(predN),"_N")
+#SD
+predSd <- apply(osnovni.podatki[c(grepl("Q",names(osnovni.podatki)))], 2, FUN=sd, na.rm=TRUE)
+names(predSd) <- paste0(names(predSd),"_sd")
+predSd <- round(predSd,1)
+#MIN
+predMin <- apply(osnovni.podatki[c(grepl("Q",names(osnovni.podatki)))], 2, FUN=min, na.rm=TRUE)
+names(predMin) <- paste0(names(predMin),"_max")
+predMin[predMin==Inf] <- NA
+#MAX
+predMax <- apply(osnovni.podatki[c(grepl("Q",names(osnovni.podatki)))],2, FUN=max, na.rm=TRUE)
+names(predMax) <- paste0(names(predMax),"_max")
+predMax[predMax==Inf] <- NA
+## //Opisne statistike za tabele// ##
+
+
+###########################
+#### making latex file ####
+###########################
+## LATEX TABLE 1: Q2 KOMUNICIRANJE
+mean.Q2_komuniciranje.skupaj <- round(mean(Q2_komuniciranje.skupaj),1)
+
+tabela.Q2 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q2",names(predN))]),
+ mean = Q2_komuniciranje.skupaj,
+ sd = as.numeric(predSd[grepl("Q2",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q2",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q2",names(predMax))]))
+# e je NA naj se v tabeli prikae "."
+tabela.Q2[is.na(tabela.Q2)] <- "."
+# Dodamo skupno povpreje komponent
+tabela.Q2 <- rbind(tabela.Q2, c('',mean.Q2_komuniciranje.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vpraanj
+namesQ2_komuniciranje <- c("Sposobnost besednega izraanja pri predstavitvi ideje.",
+ "Sposobnost pravoasnega in tonega poroanja.",
+ "Sposobnost informiranja drugih.",
+ "Sposobnost spodbujanja in uporabe odkrite komunikacije.",
+ "Sposobnost podajanja tonih in usklajenih informacij ali navodil.",
+ "Sposobnost uporabe primernih komunikacijskih orodij.")
+
+rownames(tabela.Q2) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ2_komuniciranje)), "\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q2) <- c("\\textbf{n}","\\textbf{povpreje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex1 <- capture.output(Hmisc::latex(toLatex(tabela.Q2),
+ caption="Povpreje komponent ",
+ rowlabel='\\textbf{Kompetence komuniciranja}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q2)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 1: Q2 KOMUNICIRANJE// ##
+
+
+####################################################
+## LATEX TABLE 2: Q3 Sposobnost odloanja in presoje
+####################################################
+# Izraunamo skupno povpreje
+mean.Q3_odlocanje.skupaj <- round(mean(Q3_odlocanje.skupaj),1)
+
+tabela.Q3 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q3",names(predN))]),
+ mean = Q3_odlocanje.skupaj,
+ sd = as.numeric(predSd[grepl("Q3",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q3",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q3",names(predMax))]))
+
+# e je NA naj se v tabeli prikae "."
+tabela.Q3[is.na(tabela.Q3)] <- "."
+# Dodamo skupno povpreje komponent
+tabela.Q3 <- rbind(tabela.Q3, c('',mean.Q3_odlocanje.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vpraanj
+namesQ3_sposobnost <- c("Sposobnost dobrih in pravoasnih odloitev.",
+ "Sposobnost samozavestnega in suverenega odloanja.",
+ "Sposobnost uporabe sistematinega in analitinega pristopa.",
+ "Sposobnost sprejemanja dobrih odloitev tudi pod pritiskom.",
+ "Sposobnost mediacije in iskanja konsenza med vpletenimi v konfliktu. ",
+ "Sposobnost sprejemanja odloitev in ukrepov v tekih situacijah.",
+ "Sposobnost prevzemanja odgovornosti za svoje odloitve.",
+ "Sposobnost uporabe preteklih izkuenj.",
+ "Sposobnost irokega razmiljanja.")
+
+rownames(tabela.Q3) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ3_sposobnost)), "\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q3) <- c("\\textbf{n}","\\textbf{povpreje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex2 <- capture.output(Hmisc::latex(toLatex(tabela.Q3),
+ caption="Povpreje komponent ",
+ rowlabel='\\textbf{Kompetence sposobnosti odloanja in presoje}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q3)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 2: Q3 Sposobnost odloanja in presoje// ##
+
+
+
+
+#################################################
+## LATEX TABLE 3: Q4 Vodenje in ravnanje z ljudmi
+#################################################
+# Izraunamo e skupna povpreja
+mean.Q4_vodenje_ravnanje.skupaj <- round(mean(Q4_vodenje_ravnanje.skupaj),1)
+
+tabela.Q4 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q4",names(predN))]),
+ mean = Q4_vodenje_ravnanje.skupaj,
+ sd = as.numeric(predSd[grepl("Q4",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q4",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q4",names(predMax))]))
+
+# e je NA naj se v tabeli prikae "."
+tabela.Q4[is.na(tabela.Q4)] <- "."
+# Dodamo skupno povpreje komponent
+tabela.Q4 <- rbind(tabela.Q4, c('',mean.Q4_vodenje_ravnanje.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vpraanj
+namesQ4_vodenje <- c("Sposobnost spodbujanja in motiviranja zaposlenih.",
+ "Sposobnost definiranja nalog in odgovornost.",
+ "Sposobnost modrega in uinkovitega delegiranja.",
+ "Sposobnost vzdrevanja dobrega, zabavnega in stimulativnega delovnega okolja.",
+ "Sposobnost nagrajevanja posaminih in skupinskih dosekov in dela.",
+ "Sposobnost razvijanja sodelovanja na vseh ravneh.")
+
+rownames(tabela.Q4) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ4_vodenje)), "\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q4) <- c("\\textbf{n}","\\textbf{povpreje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex3 <- capture.output(Hmisc::latex(toLatex(tabela.Q4),
+ caption="Povpreje komponent ",
+ rowlabel='\\textbf{Kompetence vodenja in ravnanja z ljudmi}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q4)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 3: Q4 Vodenje in ravnanje z ljudmi// ##
+
+
+
+
+#################################################
+## LATEX TABLE 4: Q5 Vodenje projektov
+#################################################
+# Izraunamo e skupna povpreja
+mean.Q5_vodenje_projektov.skupaj <- round(mean(Q5_vodenje_projektov.skupaj),1)
+
+tabela.Q5 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q5",names(predN))]),
+ mean = Q5_vodenje_projektov.skupaj,
+ sd = as.numeric(predSd[grepl("Q5",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q5",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q5",names(predMax))]))
+
+# e je NA naj se v tabeli prikae "."
+tabela.Q5[is.na(tabela.Q5)] <- "."
+# Dodamo skupno povpreje komponent
+tabela.Q5 <- rbind(tabela.Q5, c('',mean.Q5_vodenje_projektov.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vpraanj
+namesQ5_vodenje_projektov <- c("Sposobnost postavljanja jasnih in merljivih ciljev in mejnikov.",
+ "Sposobnost sistematizacije dela in procesov.",
+ "Sposobnost opredeljevanja vloge in pristojnosti ter odgovornosti.",
+ "Sposobnost definiranja potrebnih virov.",
+ "Sposobnost koordinacije procesov v celotni organizaciji.",
+ "Sposobnost spremljanja projektov in doloanja korektivnih akcij.",
+ "Sposobnost vodenja ve projektov hkrati.")
+
+rownames(tabela.Q5) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ5_vodenje_projektov)), "\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q5) <- c("\\textbf{n}","\\textbf{povpreje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex4 <- capture.output(Hmisc::latex(toLatex(tabela.Q5),
+ caption="Povpreje komponent ",
+ rowlabel='\\textbf{Kompetence vodenja projektov}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q5)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 4: Q5 Vodenje projektov// ##
+
+
+
+
+#################################################
+## LATEX TABLE 5: Q6 Medosebne veine
+#################################################
+# Izraunamo e skupna povpreja
+mean.Q6_medosebne_vescine.skupaj <- round(mean(Q6_medosebne_vescine.skupaj),1)
+
+tabela.Q6 <- cbind.data.frame(
+ N = as.numeric(predN[grepl("Q6",names(predN))]),
+ mean = Q6_medosebne_vescine.skupaj,
+ sd = as.numeric(predSd[grepl("Q6",names(predSd))]),
+ min = as.numeric(predMin[grepl("Q6",names(predMin))]),
+ max = as.numeric(predMax[grepl("Q6",names(predMax))]))
+
+# e je NA naj se v tabeli prikae "."
+tabela.Q6[is.na(tabela.Q6)] <- "."
+# Dodamo skupno povpreje komponent
+tabela.Q6 <- rbind(tabela.Q6, c('',mean.Q6_medosebne_vescine.skupaj,'','',''))
+
+# Dodamo imena vrstic, ki bodo imena anketnih vpraanj
+namesQ6_vescine <- c("Sposobnost reevanja konfliktov.",
+ "Sposobnost posluanja.",
+ "Sposobnost podajanja povratnih informacij in konstruktivne kritike.",
+ "Sposobnost grajenja neformalnih odnosov za doseganje ciljev.",
+ "Sposobnost prilagodljivosti in odprte glave.",
+ "Sposobnost pogajanja.")
+
+rownames(tabela.Q6) <- c(Hmisc::latexTranslate(paste0("\\hline\n",namesQ6_vescine)),"\\hline\n\\textbf{Skupaj}")
+# Imena stolpcev
+colnames(tabela.Q6) <- c("\\textbf{n}","\\textbf{povpreje}","\\textbf{std. odklon}","\\textbf{min}","\\textbf{max}")
+
+# Latex tabela
+tabelatex5 <- capture.output(Hmisc::latex(toLatex(tabela.Q6),
+ caption="Povpreje komponent",
+ rowlabel='\\textbf{Medosebne veine}',
+ file='',
+ where='H',
+ col.just=rep_len('|c', ncol(tabela.Q6)),
+ rowlabel.just='m{8cm}'))
+
+## //LATEX TABLE 5: Q6 Medosebne veine// ##
+
+
+
+#########
+#BARPLOT
+#########
+# Rangiranje kompetenc
+
+tabela.cont <- cbind.data.frame(
+ a = povprecja.razmerij$Q2_komuniciranje,
+ b = povprecja.razmerij$Q3_odlocanje,
+ c = povprecja.razmerij$Q4_vodenje_ravnanje,
+ d = povprecja.razmerij$Q5_vodenje_projektov,
+ e = povprecja.razmerij$Q6_medosebne_vescine)
+
+
+tabela.cont1 <- t(tabela.cont)
+tabela.cont2 <- rowMeans(tabela.cont1)
+tabela.cont1.means <- colMeans(tabela.cont1)
+
+tabela.cont <- rbind(tabela.cont1, tabela.cont1.means)
+tabela.cont2 <- rowMeans(tabela.cont)
+tabela.cont <- cbind(tabela.cont,tabela.cont2)
+tabela.cont <- round(tabela.cont, 1)
+
+tabela.odstopanje.max <- apply(tabela.cont, 1, max)
+tabela.odstopanje.min <- apply(tabela.cont, 1, min)
+tabela.odstop.skupaj <- tabela.odstopanje.max - tabela.odstopanje.min
+tabela.cont <- cbind(tabela.cont, round(tabela.odstop.skupaj,1))
+rownames(tabela.cont) <- c("Komuniciranje","Sposobnost odloanja","Vodenje in ravnanje",
+ "Vodenje projektov","Medosebne veine",'\\hline\n\\textbf{Povpreje}')
+colnames(tabela.cont) <- c('Nadrejeni', 'Podrejeni', 'Sodelavec', 'Samoocenjevalec',"\\textbf{Skupaj}","\\textbf{Odstopanje}")
+
+# Latex tabele
+tabela.contR.tex <- capture.output(Hmisc::latex(toLatex(tabela.cont),
+ caption="Rangirane kompetence glede na povpreje rezultatov",
+ rowlabel='Kompetenca',
+ file='',
+ where='H',
+ col.just=c("|c","|c","|c","|c|","|c","|c"),
+ rowlabel.just='m{5cm}'))
+
+
+## TABELA ZA <- Rangiranje kompetenc ##
+tabela.matrix <- cbind.data.frame(
+ a = povprecja.razmerij$Q2_komuniciranje,
+ b = povprecja.razmerij$Q3_odlocanje,
+ c = povprecja.razmerij$Q4_vodenje_ravnanje,
+ d = povprecja.razmerij$Q5_vodenje_projektov,
+ e = povprecja.razmerij$Q6_medosebne_vescine)
+
+tabela.matrix<-t(tabela.matrix)
+rownames(tabela.cont) <- c("Komuniciranje","Sposobnost odloanja","Vodenje in ravnanje",
+ "Vodenje projektov","Medosebne veine",'\\hline\n\\textbf{Povpreje}')
+colnames(tabela.matrix) <- c('Nadrejeni', 'Podrejeni', 'Enak nivo', 'Samoocenjevalec')
+tabela.matrix <- round(tabela.matrix, 1)
+
+## GRAF ##
+# BARPLOT RANGIRANIH KOMPETENC
+df <- as.data.frame(tabela.matrix)
+rownames(df) <- c("Komuniciranje", "Sposobnost odlocanja", "Vodenje in ravnanje", "Vodenje projektov", "Medosebne vescine")
+df$name <- rownames(df)
+
+# Data.table
+df2 <- melt(setDT(df), id="name")
+df2[, difference := max(value) - min(value), by = name]
+
+
+
+pdf(paste('modules/mod_360_1KA/results/slike/rangiranje_kompetenc.pdf', sep=''), family='sans', pointsize=11, width=8, height=7,encoding = 'CP1250')
+
+
+
+# GGplot
+p <- ggplot(df2, aes(x=name, y=value, fill=variable)) +
+ theme_bw()+
+ geom_bar(stat="identity",width=0.8, position="dodge") +
+ geom_line(aes(x=name, y=difference, group=1), size=1.5, color="red") +
+ scale_x_discrete(expand = c(0,0)) +
+ scale_y_continuous(expand = c(0,0), limits = c(0,5)) +
+ theme(legend.position = "bottom", axis.text.x = element_text(angle = 20,vjust = 0.3)) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) +
+ geom_text(aes(x = name, y = 0.15, label = round(value, 2), fill = variable),
+ angle = 90, position = position_dodge(width = 0.7), size = 5)
+
+# Odstranimo e imena x in y osi ter naslov legende
+p + labs(x="",y="")+ guides(fill=guide_legend(title=NULL))
+
+dev.off()
+
+tex.graf <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Razlike med ocenjevalci za povpreno oceno na \\textbf{vseh kompetencah}}",
+ paste0("\\centerline{\\includegraphics[width=0.80\\textwidth]{slike/rangiranje_kompetenc.pdf}}"),
+ "\\end{figure}")
+
+)
+## //RANGIRANJE KOMPETENC// ##
+
+
+
+#####################################
+# PRIPRAVA PDOATKOV ZA GRAFE: GGPLOT
+####################################
+# Najprej ustvarimo spremenljivke v katere zapiemo tekst vpraanj, ki se bo prikazal na grafih, na y osi
+# IMENA KOMPETENC ZA GGPLOT pod tabelami za posamenzo kompetenco. Prikaz CELOTNEGA TEKSTA ##
+######
+## TEKST Q2 KOMUNICIRANJE ##
+#####
+names(Q2_komuniciranje.skupaj) <- (namesQ2_komuniciranje)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.komuniciranje <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(Q2_komuniciranje.skupaj))
+
+######
+## TEKST Q3 SPOSOBNOST ODLOANJA ##
+#####
+names(Q3_odlocanje.skupaj) <- (namesQ3_sposobnost)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.sposobnost <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(Q3_odlocanje.skupaj))
+
+######
+## TEKST Q4 Vodenje in ravnanje z ljudmi ##
+#####
+names(Q4_vodenje_ravnanje.skupaj) <- (namesQ4_vodenje)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.vodenje.ravnanje <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(Q4_vodenje_ravnanje.skupaj))
+
+######
+## TEKST Q5 Vodenje projektov ##
+#####
+names(Q5_vodenje_projektov.skupaj) <- (namesQ5_vodenje_projektov)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.vodenje.projektov <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(Q5_vodenje_projektov.skupaj))
+
+######
+## TEKST Q6 Medosebne veine ##
+#####
+names(Q6_medosebne_vescine.skupaj) <- (namesQ6_vescine)
+# Za prikaz CELOTNEGA teksta v ggplotu
+# Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.
+names.vescine <- gsub('(.{1,43})(\\s|$)', '\\1\n',names(namesQ6_vescine))
+
+## //IMENA KOMPETENC// ##
+
+
+##############################################################
+## IZRAUN POVPREIJ POSAMEZNE SKUPINE ZA POSAMEZNO KOMPETENCO
+##############################################################
+###########
+# NADREJENI
+###########
+nadrejeni <- subset(razmerjeMean, Q1==1)
+#1 Q2 Komuniciranje
+nadrejeni.komuniciranje <- colMeans(nadrejeni[grepl("Q2",names(nadrejeni))],na.rm=T)
+#2 Q3 Sposobnost odloanja in presoje
+nadrejeni.odlocanje <- colMeans(nadrejeni[grepl("Q3",names(nadrejeni))],na.rm=T)
+#3 Q4 Vodenje in ravnanje z ljudmi
+nadrejeni.vodenje.ravananje <- colMeans(nadrejeni[grepl("Q4",names(nadrejeni))],na.rm=T)
+#5 Q5 Vodenje projektov
+nadrejeni.vodenje.projektov <- colMeans(nadrejeni[grepl("Q5",names(nadrejeni))],na.rm=T)
+#6 Q6 Medosebne veine
+nadrejeni.vescine <- colMeans(nadrejeni[grepl("Q6",names(nadrejeni))],na.rm=T)
+## //nadrejeni// ##
+
+
+###########
+# Podrejeni
+###########
+podrejeni <- subset(razmerjeMean, Q1==2)
+#1 Q2 Komuniciranje
+podrejeni.komuniciranje <- colMeans(podrejeni[grepl("Q2",names(podrejeni))],na.rm=T)
+#2 Q3 Sposobnost odloanja in presoje
+podrejeni.odlocanje <- colMeans(podrejeni[grepl("Q3",names(podrejeni))],na.rm=T)
+#3 Q4 Vodenje in ravnanje z ljudmi
+podrejeni.vodenje.ravananje <- colMeans(podrejeni[grepl("Q4",names(podrejeni))],na.rm=T)
+#5 Q5 Vodenje projektov
+podrejeni.vodenje.projektov <- colMeans(podrejeni[grepl("Q5",names(podrejeni))],na.rm=T)
+#6 Q6 Medosebne veine
+podrejeni.vescine <- colMeans(podrejeni[grepl("Q6",names(podrejeni))],na.rm=T)
+
+
+###########
+# Sodelavec
+###########
+sodelavec <- subset(razmerjeMean, Q1==3)
+#1 Q2 Komuniciranje
+sodelavec.komuniciranje <- colMeans(sodelavec[grepl("Q2",names(sodelavec))],na.rm=T)
+#2 Q3 Sposobnost odloanja in presoje
+sodelavec.odlocanje <- colMeans(sodelavec[grepl("Q3",names(sodelavec))],na.rm=T)
+#3 Q4 Vodenje in ravnanje z ljudmi
+sodelavec.vodenje.ravananje <- colMeans(sodelavec[grepl("Q4",names(sodelavec))],na.rm=T)
+#5 Q5 Vodenje projektov
+sodelavec.vodenje.projektov <- colMeans(sodelavec[grepl("Q5",names(sodelavec))],na.rm=T)
+#6 Q6 Medosebne veine
+sodelavec.vescine <- colMeans(sodelavec[grepl("Q6",names(sodelavec))],na.rm=T)
+
+#################
+# Samoocenjevalec
+#################
+samoocenjevalec <- subset(razmerjeMean, Q1==4)
+#1 Q2 Komuniciranje
+samoocenjevalec.komuniciranje <- colMeans(samoocenjevalec[grepl("Q2",names(samoocenjevalec))],na.rm=T)
+#2 Q3 Sposobnost odloanja in presoje
+samoocenjevalec.odlocanje <- colMeans(samoocenjevalec[grepl("Q3",names(samoocenjevalec))],na.rm=T)
+#3 Q4 Vodenje in ravnanje z ljudmi
+samoocenjevalec.vodenje.ravananje <- colMeans(samoocenjevalec[grepl("Q4",names(samoocenjevalec))],na.rm=T)
+#5 Q5 Vodenje projektov
+samoocenjevalec.vodenje.projektov <- colMeans(samoocenjevalec[grepl("Q5",names(samoocenjevalec))],na.rm=T)
+#6 Q6 Medosebne veine
+samoocenjevalec.vescine <- colMeans(samoocenjevalec[grepl("Q6",names(samoocenjevalec))],na.rm=T)
+## //IZRAUN POVPREIJ POSAMEZNE SKUPINE ZA POSAMEZNO KOMPETENCO// ##
+
+
+
+#################GGPLOT#############################
+##GGPLOT GRAF ZA POSAMEZNO SKUPINO POD TABELAMI#####
+####################################################
+
+####### GGPLOT Q2 KOMUNICIRANJE ########
+library(reshape2)
+kompetenc.Q2.KOMUNICIRANJE <- rbind(nadrejeni.komuniciranje,podrejeni.komuniciranje,sodelavec.komuniciranje,samoocenjevalec.komuniciranje)
+kompetenc.Q2.KOMUNICIRANJE <- t(as.matrix(kompetenc.Q2.KOMUNICIRANJE))
+colnames(kompetenc.Q2.KOMUNICIRANJE) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+test<- c("Sposobnost besednega izrazanja pri predstavitvi ideje.",
+ "Sposobnost pravocasnega in tocnega porocanja.",
+ "Sposobnost informiranja drugih.",
+ "Sposobnost spodbujanja in uporabe odkrite komunikacije.",
+ "Sposobnost podajanja tocnih in usklajenih informacij ali navodil.",
+ "Sposobnost uporabe primernih komunikacijskih orodij.")
+rownames(kompetenc.Q2.KOMUNICIRANJE) <- test
+
+
+
+ggplot.Q2 <- melt(kompetenc.Q2.KOMUNICIRANJE)
+
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_komuniciranje.pdf', sep=''), pointsize=10, width=7.5, height=6.5,encoding = 'CP1250')
+
+
+
+p<-ggplot(ggplot.Q2, aes(y = value,x = Var1, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q2$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y=5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.7), size = 4.2)
+p <- p + labs(fill="")
+#Nastavitve sirine in viine legende
+#p + guides(fill=guide_legend(
+# keywidth=1,
+# keyheight=1,
+# default.unit="inch")
+#)
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q2 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povpreje komponent po skupinah \\textbf{kompetence komuniciranja}}",
+ paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{slike/ggplot_komuniciranje.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q2 KOMUNICIRANJE// ##
+
+#########################
+
+####### GGPLOT Q3 SPOSOBNOST ODLOANJA IN PRESOJE ########
+
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_odlocanje.pdf', sep=''), family = 'sans', pointsize=10, width=7.5, height=7,encoding = 'CP1250')
+
+kompetenc.Q3.SPOSOBNOST.OD <- rbind(nadrejeni.odlocanje,podrejeni.odlocanje,sodelavec.odlocanje,samoocenjevalec.odlocanje)
+kompetenc.Q3.SPOSOBNOST.OD <- t(as.matrix(kompetenc.Q3.SPOSOBNOST.OD))
+colnames(kompetenc.Q3.SPOSOBNOST.OD) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+
+
+
+#test22 <- c("Sposobnost dobrih in pravoasnih odloitev.",
+ # "odlo\u010Danja.",
+ # "Sposobnost uporabe sistemati\u010Dnega in analiti\u010Dnega pristopa.",
+ # "Sposobnost sprejemanja dobrih odloitev tudi pod pritiskom.",
+ # "Sposobnost mediacije in iskanja konsenza med vpletenimi v konfliktu. ",
+ # "Sposobnost sprejemanja odloitev in ukrepov v tekih situacijah.",
+ # "Sposobnost prevzemanja odgovornosti za svoje odloitve.",
+ # "Sposobnost uporabe preteklih izkuenj.",
+ # "Sposobnost irokega razmiljanja.")
+#rownames(kompetenc.Q3.SPOSOBNOST.OD) <- test22
+rownames(kompetenc.Q3.SPOSOBNOST.OD) <- names.sposobnost
+ggplot.Q3 <- melt(kompetenc.Q3.SPOSOBNOST.OD)
+# e so manjkajoi podatki (NA ali NaN) v vrsticah jih odstranimo
+ggplot.Q3 <- ggplot.Q3[complete.cases(ggplot.Q3),]
+
+
+
+p<-ggplot(ggplot.Q3, aes(x = Var1, y = value, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q3$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y =5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.8), size = 4.2)
+p <- p + labs(fill="")
+
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q3 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povpreje komponent po skupinah \\textbf{kompetence sposobnosti odloanja in presoje}}",
+ paste0("\\centerline{\\includegraphics[width=0.75\\textwidth]{slike/ggplot_odlocanje.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q3 SPOSOBNOST ODLOANJA IN PRESOJE// ##
+
+#########################
+
+####### GGPLOT Q4 VODENJE IN RAVNANJE Z LJUDMI ########
+kompetenc.Q4.VODENJE.LJUDI <- rbind(nadrejeni.vodenje.ravananje,podrejeni.vodenje.ravananje,
+ sodelavec.vodenje.ravananje,samoocenjevalec.vodenje.ravananje)
+kompetenc.Q4.VODENJE.LJUDI <- t(as.matrix(kompetenc.Q4.VODENJE.LJUDI))
+colnames(kompetenc.Q4.VODENJE.LJUDI) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+rownames(kompetenc.Q4.VODENJE.LJUDI) <- names.vodenje.ravnanje
+
+
+ggplot.Q4 <- melt(kompetenc.Q4.VODENJE.LJUDI)
+# e so manjkajoi podatki (NA ali NaN) v vrsticah jih odstranimo
+ggplot.Q4 <- ggplot.Q4[complete.cases(ggplot.Q4),]
+
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_vodenje_ravnanje.pdf', sep=''), family = 'sans', pointsize=10, width=7.5, height=7,encoding = 'CP1250')
+
+p<-ggplot(ggplot.Q4, aes(x = Var1, y = value, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q4$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y =5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.8), size = 4.2)
+p <- p + labs(fill="")
+
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q4 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povpreje komponent po skupinah \\textbf{kompetence vodenja in ravnanja z ljudmi}}",
+ paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{slike/ggplot_vodenje_ravnanje.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q4 VODENJE IN RAVNANJE Z LJUDMI// ##
+
+#########################
+
+####### GGPLOT Q5 VODENJE PROJEKTOV ########
+kompetenc.Q5.VODENJE.PROJEKTOV <- rbind(nadrejeni.vodenje.projektov,podrejeni.vodenje.projektov,
+ sodelavec.vodenje.projektov,samoocenjevalec.vodenje.projektov)
+kompetenc.Q5.VODENJE.PROJEKTOV <- t(as.matrix(kompetenc.Q5.VODENJE.PROJEKTOV))
+colnames(kompetenc.Q5.VODENJE.PROJEKTOV) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+rownames(kompetenc.Q5.VODENJE.PROJEKTOV) <- names.vodenje.projektov
+
+
+ggplot.Q5 <- melt(kompetenc.Q5.VODENJE.PROJEKTOV)
+# e so manjkajoi podatki (NA ali NaN) v vrsticah jih odstranimo
+ggplot.Q5 <- ggplot.Q5[complete.cases(ggplot.Q5),]
+#
+#
+#
+#
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_vodenje_projektov.pdf', sep=''), family = 'sans', pointsize=10, width=7.5, height=7)
+
+p<-ggplot(ggplot.Q5, aes(x = Var1, y = value, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q5$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y =5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.8), size = 4.2)
+p <- p + labs(fill="")
+
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q5 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povpreje komponent po skupinah \\textbf{kompetence vodenja projektov}}",
+ paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{slike/ggplot_vodenje_projektov.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q5 VODENJE PROJEKTOV// ##
+
+###################
+
+####### GGPLOT Q6 MEDOSEBNE VEINE ########
+kompetenc.Q6.MEDOSEBNE.VESCINE <- rbind(nadrejeni.vescine,podrejeni.vescine,
+ sodelavec.vescine,samoocenjevalec.vescine)
+kompetenc.Q6.MEDOSEBNE.VESCINE <- t(as.matrix(kompetenc.Q6.MEDOSEBNE.VESCINE))
+colnames(kompetenc.Q6.MEDOSEBNE.VESCINE) <- c("Nadrejeni", "Podrejeni", "Enak nivo", "Samooc.")
+rownames(kompetenc.Q6.MEDOSEBNE.VESCINE) <- names.vescine
+
+
+ggplot.Q6 <- melt(kompetenc.Q6.MEDOSEBNE.VESCINE)
+# e so manjkajoi podatki (NA ali NaN) v vrsticah jih odstranimo
+ggplot.Q6 <- ggplot.Q6[complete.cases(ggplot.Q6),]
+#
+#
+#
+#
+
+pdf(paste('modules/mod_360_1KA/results/slike/ggplot_medosebne_vescine.pdf', sep=''), family = 'sans', pointsize=10, width=7.5, height=7)
+
+p<-ggplot(ggplot.Q6, aes(x = Var1, y = value, fill = Var2)) + coord_flip()+
+ theme_bw() +
+ scale_y_continuous(expand=c(0,0), limits=c(0,5.4),oob = rescale_none) +
+ scale_fill_manual(values = c("#d99694", "#c00000", "#632523","#7F7F7F")) + xlim(rev(levels(ggplot.Q2$Var1)))+
+ theme(axis.title=element_blank(),axis.ticks.y=element_blank(),legend.position = "bottom",
+ axis.text.x = element_text(angle = 0,vjust = 0.4)) +
+ geom_bar(stat = "identity", width = 0.7, position = position_dodge(width=0.7)) +
+ geom_text(aes(x = Var1, y =5.2, label = round(value, 2), fill = Var2),
+ angle = 0, position = position_dodge(width = 0.8), size = 4.2)
+p <- p + labs(fill="")
+
+p2 <- p +
+ stat_summary(fun.y = mean, color = "red", geom = "line", aes(group = 1)) +
+ stat_summary(fun.y = mean, color = "black", geom ="point", aes(group = 1), size = 3,
+ show.legend = FALSE)
+
+# This is the data for your dots in the graph
+foo <- as.data.frame(ggplot_build(p2)$data[[4]])
+foo$y <- round(foo$y, 1)
+
+p2 + annotate("text", x = foo$x, y = foo$y + 0.5, color = "black", label = foo$y)
+
+dev.off()
+
+# SLIKA GRAFA: Latex in PDF
+tex.ggplot.Q6 <- c(paste0(
+ "\\begin{figure}[H]",
+ "\\caption{Povpreje komponent po skupinah \\textbf{kompetence medosebnih vein}}",
+ paste0("\\centerline{\\includegraphics[width=0.85\\textwidth]{slike/ggplot_medosebne_vescine.pdf}}"),
+ "\\end{figure}"))
+## //GGPLOT Q6 MEDOSEBNE VEINE// ##
+
+
+
+#######################
+#RADAR AKA. SPIDER GRAF
+#######################
+## RADAR GRAF
+
+pdf(paste('modules/mod_360_1KA/results/slike/radar.pdf', sep=''), family='sans', pointsize=11, width=8, height=7)
+
+radar.data <- t(tabela.matrix)
+# provide the data you want to plot, and the desired range
+
+myrange <- c(1, 5)
+
+# create a data frame with the max and min as the first two rows
+mydf <- data.frame(rbind(max=myrange[2], min=myrange[1], radar.data))
+
+# create a radar chart
+colnames(mydf) <- c("Komuniciranje","Sposobnost odlocanja\nin presoje","Vodenje in ravnanje z ljudmi","Vodenje projektov", "Medosebne vescine")
+
+
+radarchart(mydf, pcol=c("#d99694", "#c00000", "#632523","#7F7F7F"), cglcol='gray75',
+ plwd=2, plty=1, cglwd=1, cglty=1, seg=4, axistype=1, caxislabels=c(1:5),
+ axislabcol='gray25', centerzero=TRUE)
+
+legend('topright', legend=c("Nadrejeni","Podrejeni","Enak nivo","Samooc."),
+ col=c("#d99694", "#c00000", "#632523","#7F7F7F"), lty=1, lwd=2, bty='n')
+
+dev.off()
+
+#tekst nad radar grafom
+radar.poj <- c("Kvantitativno pridobljene informacije kompetenc so zelo uporabne pri oblikovanju
+ radar diagrama. Znotraj diagrama so ustrezno prikazane bolj/manj poudarjene lastnosti posameznega zaposlenega.\\
+ Radar diagram prikazuje, kako se je ocenjevana oseba pri posameznih kompetencah ocenila, glede na to, kako so to osebo
+ ocenili drugi. Slednje pa je zelo uporabno in hitro lahko opazimo ali med ocenjevano osebo
+ in drugimi obstajajo razlike pri percepciji posameznih kompetenc.")
+
+tex.radar <- c(radar.poj,"\\begin{figure}[H]", "\\caption{Radar diagram povpreij kompetenc po skupinah}",
+ paste0('\\centerline{\\includegraphics[width=0.95\\textwidth]{slike/radar.pdf}}'),
+ "\\end{figure}")
+
+##// RADAR GRAF//##
+
+Sys.setlocale("LC_ALL", "Czech")
+
+
+
+# Dodatno pojasnilo glede VAROVANJA OSEBNIH PODATKOV
+varovanje.podatkov <- scan("modules/mod_360_1KA/latexkosi/varstvo_osebnih_podatkov.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8')
+varovanje.podatkov <- gsub('', '', varovanje.podatkov, fixed=T)
+varovanje.podatkov <- gsub('', '', varovanje.podatkov,fixed=T)
+varovanje.podatkov <- gsub('', '', varovanje.podatkov,fixed=T)
+varovanje.podatkov <- gsub('\u017E', '', varovanje.podatkov,fixed=T)
+varovanje.podatkov <- gsub('\u2013', '-', varovanje.podatkov,fixed=T)
+################################################
+## Sestavljanje latex datotek in Generiranje PDF
+################################################
+tex.glava <- scan("modules/mod_360_1KA/latexkosi/a-glava-1ka.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8')
+tex.pojasnilo <- scan("modules/mod_360_1KA/latexkosi/pojasnilo.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8') # Uvod
+tex.pojasnilo <- gsub('', '', tex.pojasnilo, fixed=T)
+tex.pojasnilo <- gsub('', '', tex.pojasnilo,fixed=T)
+tex.pojasnilo <- gsub('', '', tex.pojasnilo,fixed=T)
+tex.pojasnilo <- gsub('\u017E', '', tex.pojasnilo,fixed=T)
+tex.pojasnilo <- gsub('\u2013', '-', tex.pojasnilo,fixed=T)
+tex.noga <- scan("modules/mod_360_1KA/latexkosi/z-noga.tex", character(0), sep="\n", quiet=TRUE)
+Rdirektorij <- getwd()
+
+
+tex.izbor <- c(tex.glava,tex.pojasnilo, "\\newpage",
+ "\\chapter{Kompetence komuniciranja}",tabelatex1,"\\newpage",tex.ggplot.Q2,
+ "\\chapter{Kompetence sposobnosti odloanja in presoje}", tabelatex2,"\\newpage",tex.ggplot.Q3,
+ "\\chapter{Kompetence vodenja in ravnanja z ljudmi}",tabelatex3,"\\newpage", tex.ggplot.Q4,
+ "\\chapter{Kompetence vodenja projektov}",tabelatex4,"\\newpage",tex.ggplot.Q5,
+ "\\chapter{Medosebne veine}",tabelatex5,"\\newpage",tex.ggplot.Q6,
+ "\\chapter{Rangiranje kompetenc}",tabela.contR.tex,"\\newpage",tex.graf,
+ "\\chapter{Radar diagram}",tex.radar,varovanje.podatkov,tex.noga)
+
+
+setwd(paste(Rdirektorij, "modules/mod_360_1KA/results", sep="/"))
+cat(tex.izbor, file=paste0("mod_360_CDI.tex"), sep="\n")
+tools::texi2pdf(file=paste0("mod_360_CDI.tex"), quiet=TRUE, clean=TRUE)
+setwd(Rdirektorij)
+
diff --git a/admin/survey/modules/mod_360_1KA/class.Survey3601ka.php b/admin/survey/modules/mod_360_1KA/class.Survey3601ka.php new file mode 100644 index 0000000..aa4a6c0 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/class.Survey3601ka.php @@ -0,0 +1,258 @@ +<?php
+
+define("TEMP_FOLDER", "admin/survey/modules/mod_360_1KA/temp");
+define("SCRIPT_FOLDER", "admin/survey/modules/mod_360_1KA/R");
+define("RESULTS_FOLDER", "admin/survey/modules/mod_360_1KA/results");
+
+class Survey3601ka{
+
+ var $anketa; # id ankete
+ var $db_table = '';
+
+
+ function __construct($anketa){
+ global $site_url;
+
+ // Ce imamo anketo, smo v status->ul evealvacija
+ if ((int)$anketa > 0){
+ $this->anketa = $anketa;
+
+ # polovimo vrsto tabel (aktivne / neaktivne)
+ SurveyInfo :: getInstance()->SurveyInit($this->anketa);
+ if (SurveyInfo::getInstance()->getSurveyColumn('db_table') == 1) {
+ $this->db_table = '_active';
+ }
+ }
+ }
+
+
+ // Prikazemo vsa porocila
+ public function displayReports(){
+ global $lang;
+
+ echo '<fieldset><legend>'.$lang['srv_360_reports'].'</legend>';
+ echo '<ul>';
+
+ // Poiščemo vprašanja z odnosom in identifikacijo ocenjevanca
+ $sql = sisplet_query("SELECT s.id AS spr_id, s.variable AS variable, s.tip AS tip FROM srv_spremenljivka s, srv_grupa g
+ WHERE g.ank_id='$this->anketa' AND s.gru_id=g.id AND (s.variable='odnos' OR s.variable='ime' OR s.variable='drugo')");
+ while($row = mysqli_fetch_array($sql)){
+
+ if($row['variable'] == 'odnos'){
+
+ }
+ elseif($row['variable'] == 'drugo'){
+
+ // Loop po vseh odgovorih drugo (ocenjevanec) in jih zgrupiramo
+ $sqlU = sisplet_query("SELECT * FROM srv_data_text".$this->db_table." WHERE spr_id='".$row['id']."'");
+ while($rowU = mysqli_fetch_array($sqlU)){
+
+ }
+ }
+ }
+
+
+ echo '<li>';
+ echo '<a href="index.php?anketa=' . $this->anketa . '&a=' . A_ANALYSIS . '&m=' . M_ANALYSIS_360_1KA . '&export=1">Izvozi poročilo</a>';
+ echo '</li>';
+
+ echo '</ul>';
+ echo '</fieldset>';
+
+ // Izvažamo
+ if(isset($_GET['export']) && $_GET['export'] == '1'){
+ $this->executeExport();
+ }
+ }
+
+ // Prikazemo nastavitve pri vklopu naprednega modula
+ public function displaySettings(){
+ global $lang;
+
+ echo 'Dodatne nastavitve...';
+ }
+
+
+ // Zgeneriramo pdf analizo
+ public function executeExport(){
+ global $site_path;
+ global $lang;
+ global $admin_type;
+
+ // Zgeneriramo zacasne csv datoteke
+ $this->prepareCSV();
+
+ // Poklicemo R skripto in zgeneriramo pdf
+ $script = $site_path . SCRIPT_FOLDER . '/360_stopinj_1ka.R';
+ $out = exec('Rscript '.$script.' 2>&1', $output, $return_var);
+
+ // Testiranje - izpis errorjev
+ if($admin_type == 0){
+ echo '<div>';
+ echo 'Rscript '.$script;
+ //echo '<br />'.$out.'<br />';
+ var_dump($output);
+ echo '</div>';
+ }
+
+ // Pripravimo file za download
+ if(file_exists($site_path . RESULTS_FOLDER . '/mod_360_CDI.pdf')){
+
+ $file = $site_path . RESULTS_FOLDER . '/mod_360_CDI.pdf';
+
+ header('Content-Description: File Transfer');
+ header('Content-Type: application/octet-stream');
+ header('Content-Disposition: attachment; filename='.basename('mod_360_CDI.pdf'));
+ header('Content-Transfer-Encoding: binary');
+ header('Expires: 0');
+ header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
+ header('Pragma: public');
+ header('Content-Length: ' . filesize($file));
+
+ ob_clean();
+ flush();
+
+ readfile($file);
+ }
+
+ // Na koncu pobrisemo zacasne datoteke
+ $this->deleteTemp();
+
+ // Ugasnemo skripto:)
+ die();
+ }
+
+ // Pripravimo zacasne datoteke
+ private function prepareCSV(){
+ global $site_path;
+
+ $temp_folder = $site_path . TEMP_FOLDER.'/';
+
+ $SDF = SurveyDataFile::get_instance();
+ $SDF->init($this->anketa);
+ $_headFileName = $SDF->getHeaderFileName();
+ $_dataFileName = $SDF->getDataFileName();
+ $_fileStatus = $SDF->getStatus();
+
+ if ($_headFileName != null && $_headFileName != '') {
+ $_HEADERS = unserialize(file_get_contents($_headFileName));
+ }
+ else {
+ echo 'Error! Empty file name!';
+ }
+
+ // Zaenkrat dopuscamo samo status 6 in brez lurkerjev
+ //$status_filter = '('.STATUS_FIELD.' ~ /6|5/)&&('.LURKER_FIELD.'==0)';
+ $status_filter = '('.STATUS_FIELD.'==6)&&('.LURKER_FIELD.'==0)';
+
+ //$start_sequence = $_HEADERS['_settings']['dataSequence'];
+ $start_sequence = 2;
+ $end_sequence = $_HEADERS['_settings']['metaSequence']-1;
+
+ $field_delimit = ';';
+
+ // Filtriramo podatke po statusu in jih zapisemo v temp folder
+ if (IS_WINDOWS) {
+ //$command = 'awk -F"|" "BEGIN {{OFS=\",\"} {ORS=\"\n\"}} '.$status_filter.' { print $0}" '.$_dataFileName.' >> '.$temp_folder.'/temp_data_'.$this->anketa.'.dat';
+ $out = shell_exec('awk -F"|" "BEGIN {{OFS=\",\"} {ORS=\"\n\"}} '.$status_filter.'" '.$_dataFileName.' | cut -d "|" -f '.$start_sequence.'-'.$end_sequence.' >> '.$temp_folder.'/temp_data_'.$this->anketa.'.dat');
+
+ # zamenjamo | z ;
+ //exec('sed "s/|/\x22'.$field_delimit.'=\x22/g" '.$temp_folder.'/temp_data_'.$this->anketa.'.dat >> '.$temp_folder.'/temp_data_'.$this->anketa.'.csv');
+ }
+ else {
+ //$command = 'awk -F"|" \'BEGIN {{OFS=","} {ORS="\n"}} '.$status_filter.' { print $0; }\' '.$_dataFileName.' >> '.$temp_folder.'/temp_data_'.$this->anketa.'.dat';
+ $out = shell_exec('awk -F"|" \'BEGIN {{OFS=","} {ORS="\n"}} '.$status_filter.'\' '.$_dataFileName.' | cut -d \'|\' -f '.$start_sequence.'-'.$end_sequence.' >> '.$temp_folder.'/temp_data_'.$this->anketa.'.dat');
+
+ # zamenjamo | z ;
+ //exec('sed \'s/|/\x22'.$field_delimit.'=\x22/g\' '.$temp_folder.'/temp_data_'.$this->anketa.'.dat >> '.$temp_folder.'/temp_data_'.$this->anketa.'.csv');
+ }
+
+
+ // Ustvarimo koncni CSV
+ if ($fd = fopen($temp_folder.'/temp_data_'.$this->anketa.'.dat', "r")) {
+
+ //$fd2 = fopen($temp_folder.'/data_'.$this->anketa.'.csv', "w");
+ $fd2 = fopen($temp_folder.'/test.csv', "w");
+
+ //header('Content-Encoding: windows-1250');
+ //header('Content-Type: application/csv charset=windows-1250');
+
+ # naredimo header row
+ foreach ($_HEADERS AS $spid => $spremenljivka) {
+ if (count($spremenljivka['grids']) > 0) {
+ foreach ($spremenljivka['grids'] AS $gid => $grid) {
+ foreach ($grid['variables'] AS $vid => $variable ){
+ if ($spremenljivka['tip'] !== 'sm' && !($variable['variable'] == 'uid' && $variable['naslov'] == 'User ID')){
+ $output1 .= strip_tags($variable['variable']).$field_delimit;
+ $output2 .= '"'.strip_tags($variable['naslov']).'"'.$field_delimit;
+ }
+ }
+ }
+ }
+ }
+
+ // Spremenimo encoding v windows-1250
+ //$output1 = iconv("UTF-8","Windows-1250//TRANSLIT", $output1);
+ //$output2 = iconv("UTF-8","Windows-1250//TRANSLIT", $output2);
+
+ fwrite($fd2, $output1."\r\n");
+ fwrite($fd2, $output2."\r\n");
+
+
+ while ($line = fgets($fd)) {
+
+ //fwrite($fd2, '="');
+ //$line = str_replace(array("\r","\n","|"), array("","",'";="'), $line);
+ $line = '"' . str_replace(array("\r","\n","\"","|"), array("","","",'";"'), $line) . '"';
+
+ // Spremenimo encoding v windows-1250
+ $line = iconv("UTF-8","Windows-1250//TRANSLIT", $line);
+ //$line = str_replace(array("č","š","ž","Č","Š","Ž"), array("\v{c}","\v{s}","\v{z}","\v{C}","\v{S}","\v{Z}"), $line);
+
+ fwrite($fd2, $line);
+ //fwrite($fd2, '"');
+ fwrite($fd2, "\r\n");
+ }
+
+ fclose($fd2);
+ }
+ fclose($fd);
+
+
+ // Na koncu pobrisemo temp datoteke
+ if (file_exists($temp_folder.'/temp_data_'.$this->anketa.'.dat')) {
+ unlink($temp_folder.'/temp_data_'.$this->anketa.'.dat');
+ }
+ }
+
+ // Pobrisemo zacasne datoteke
+ private function deleteTemp(){
+ global $site_path;
+
+ $temp_folder = $site_path . TEMP_FOLDER.'/';
+
+ if (file_exists($temp_folder.'/data_'.$this->anketa.'.csv')) {
+ unlink($temp_folder.'/data_'.$this->anketa.'.csv');
+ }
+
+ // Pobrisemo zacasno CSV datoteko s podatki
+ if (file_exists($temp_folder.'/test.csv')) {
+ unlink($temp_folder.'/test.csv');
+ }
+
+ // Pobrisemo pdf grafe ki so bili vstavljeni v porocilo
+ $files = glob($site_path . RESULTS_FOLDER . '/part-predmet-slike/*');
+ foreach($files as $file){
+ if(is_file($file))
+ unlink($file);
+ }
+
+ // Pobrisemo še vse ostalo v rezultatih
+ $files = glob($site_path . RESULTS_FOLDER . '/*');
+ foreach($files as $file){
+ if(is_file($file))
+ unlink($file);
+ }
+ }
+
+}
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/a-glava-1ka.tex b/admin/survey/modules/mod_360_1KA/latexkosi/a-glava-1ka.tex new file mode 100644 index 0000000..9292e1f --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/a-glava-1ka.tex @@ -0,0 +1,105 @@ +\documentclass[11pt,a4paper]{report}
+\usepackage[cm]{fullpage}
+\setlength{\headheight}{12pt}
+\usepackage{arev}
+\usepackage[T1]{fontenc}
+\usepackage{times}
+%\usepackage[nofligs]{verdana}
+\usepackage[fontsize=11pt]{scrextend}
+\usepackage{amsmath}
+\usepackage[cp1250]{inputenc}
+\usepackage[utf8]{inputenc}
+
+\usepackage{subcaption}
+\usepackage{graphicx}
+\usepackage{xcolor}
+\definecolor{firebrick3}{HTML}{cd2626}
+\definecolor{dodgerblue3}{HTML}{1874cd}
+\definecolor{BrickRed}{HTML}{B6321C}
+\definecolor{OrangeRed}{HTML}{F58137}
+\definecolor{PineGreen}{HTML}{008B72}
+\definecolor{Orange}{HTML}{F58137}
+\definecolor{Green}{HTML}{00A64F}
+\definecolor{Atlantis}{HTML}{8CBA2E}
+\definecolor{Blue Stone}{HTML}{006666}
+\definecolor{Black}{HTML}{000000}
+\definecolor{Red}{HTML}{FF0006}
+\definecolor{Gray}{HTML}{AAAAAA}
+\usepackage{times}
+\usepackage{float}
+\usepackage{multirow}
+\usepackage{wrapfig}
+
+
+
+\usepackage{setspace}
+
+\renewcommand\thesection{\Alph{section}}
+\renewcommand\thesubsection{\thechapter.\arabic{subsection}}
+\usepackage{chngcntr}
+\counterwithout*{subsection}{section}
+\counterwithin*{subsection}{chapter}
+\usepackage{titlesec}
+\titleformat{\chapter}[hang]{\LARGE\bfseries}{\thechapter{. }}{12pt}{\LARGE\bfseries}
+\titlespacing*{\chapter}{0pt}{-13pt}{10pt}
+\usepackage{longtable}
+\usepackage{setspace}
+\usepackage{array,calc}
+\newcolumntype{A}[1]{>{\begin{minipage}{#1}\vspace{\tabcolsep}}l<{\vspace{\tabcolsep}\end{minipage}}}
+\newenvironment{Complement}[1][0.75cm]{\hspace{#1}\begin{minipage}{\linewidth-#1}\hspace{-#1}\ignorespaces}{\end{minipage}}
+
+
+
+\usepackage{fancyhdr}
+\pagestyle{fancyplain}
+\renewcommand{\chaptermark}[1]{\markboth{#1}{}}
+\fancyhf{}
+\renewcommand{\headrulewidth}{0.4pt}
+\renewcommand{\footrulewidth}{0.4pt}
+\fancyhead[L]{ \includegraphics[width=2cm]{../latexkosi/logo/CDI_glava.png} }
+\fancyfoot[L]{}
+\fancyfoot[R]{\small{Stran \thepage}}
+\headsep 25pt
+\fancypagestyle{plain}{
+ \renewcommand{\headrulewidth}{0.4pt}
+ \renewcommand{\footrulewidth}{0.4pt}
+}
+
+
+\usepackage{hyperref}
+\hypersetup{
+ colorlinks=true,
+ linkcolor=black,
+ urlcolor=blue,
+ pdfstartview={XYZ null null 1},
+ pdftitle={naslov!}
+}
+\urlstyle{same}
+
+\setlength{\parindent}{0cm}
+\LTcapwidth=\textwidth %to keep longtable captions in one row
+
+%začetek za dodatek po letih
+\makeatletter
+\@addtoreset{chapter}{part}
+\makeatother
+\usepackage{alphalph}
+\makeatletter
+\newalphalph{\alphmult}[mult]{\@Alph}{26}
+\makeatother
+\renewcommand{\thesection}{\alphmult{\value{section}}}
+%konec za dodatek po letih
+
+
+\begin{document}
+ \begin{titlepage}
+ \begin{center}
+ \vspace*{-8.5\baselineskip} % Da bo slika na vrhu
+ \includegraphics[width=18cm]{../latexkosi/logo/CDI1.png}~\\[4cm]
+ \includegraphics[width=17.5cm]{../latexkosi/logo/CDI_naslovnica.png}~\\[4cm]
+ %\textsc{ \LARGE \textbf{ \color{Red} Center za družboslovno informatiko \\[2cm] analiza 360 stopinj}}\\[6.5cm]
+ %\includegraphics[width=14.5cm]{../latexkosi/logo/slika.jpg}~\\[6cm]
+ {\large Ljubljana, \today}
+ \end{center}
+ \end{titlepage}
+\tableofcontents
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI.png Binary files differnew file mode 100644 index 0000000..bcdaa99 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI1.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI1.png Binary files differnew file mode 100644 index 0000000..757bd7d --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI1.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_glava.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_glava.png Binary files differnew file mode 100644 index 0000000..2bdaa9e --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_glava.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica - Copy.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica - Copy.png Binary files differnew file mode 100644 index 0000000..fd80776 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica - Copy.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica.png Binary files differnew file mode 100644 index 0000000..6f9b9c0 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/CDI_naslovnica.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/logo/circle.png b/admin/survey/modules/mod_360_1KA/latexkosi/logo/circle.png Binary files differnew file mode 100644 index 0000000..428c976 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/logo/circle.png diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/pojasnilo.tex b/admin/survey/modules/mod_360_1KA/latexkosi/pojasnilo.tex new file mode 100644 index 0000000..58352a9 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/pojasnilo.tex @@ -0,0 +1,21 @@ +\chapter{Metodologija}
+\subsection{Vprašalnik kompetenc po metodi 360°}
+Kompetence so skupek povezav med znanjem, veščinami in vedenji, ki vplivajo na delo posameznika in korelirajo z uspešnostjo na delovnem mestu. So skupek povezav, ki so merljive z dobro sprejetimi standardi in ki jih lahko izboljšujemo z izobraževanjem in razvojem zaposlenih. Z vprašalnikom kompetenc merimo sledeče dimenzije:
+
+
+\begin{itemize}
+\item Komuniciranje
+\item Sposobnosti odločanja in presoje
+\item Vodenje in ravnanje z ljudmi
+\item Vodenje projektov
+\item Medosebne veščine
+\end{itemize}
+\bigskip
+ \textbf{Metoda 360 stopinj} je orodje, s katerim merimo prisotnost oziroma izraženost kompetenc pri posamezniku. Pomaga nam identificirati posameznikove prednosti in njegove šibke točke ter odkriti potenciale za razvoj ter možnosti za izboljšave. Ta metoda je kompleksna in zanesljiva, saj pri njej ocenjujemo kompetence posameznika z več vidikov, z vidika:
+\begin{enumerate}
+ \item nadrejenih,
+ \item sodelavcev na enakem nivoju,
+ \item podrejenih,
+ \item ter z vidika ocenjevanca (samoocena).
+\end{enumerate}
+Na ta način dobimo celostno sliko, ki je lahko v pomoč pri določanju nadaljnjih razvojnih ciljev za posameznika na področjih, kjer se je pokazalo, da je še prostor za izboljšave.
diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/sloven2e.sty b/admin/survey/modules/mod_360_1KA/latexkosi/sloven2e.sty new file mode 100644 index 0000000..d3c0728 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/sloven2e.sty @@ -0,0 +1,42 @@ +%
+% slovene.sty - prilagoditev zvrsti ARTICLE, BOOK in REPORT slovenscini
+%
+\@ifundefined{slovensko}{\def\slovensko{}}{\endinput}
+\typeout{Document Style Option 'Sloven2e' ver 0.1. / 11-Nov-95 / V.B.}
+
+% naslovi
+
+\def\abstractname{Povzetek}
+\def\appendixname{Dodatek}
+\def\bibname{Literatura}
+\def\ccname{cc}
+\def\chaptername{Poglavje}
+\def\contentsname{Kazalo}
+\def\enclname{Priloge}
+\def\figurename{Slika\ }
+\def\headpagename{Stran}
+\def\headtoname{Komu}
+\def\indexname{Stvarno kazalo}
+\def\listfigurename{Slike}
+\def\listtablename{Tabele}
+\def\partname{Del}
+\def\prefacename{Predgovor}
+\def\seename{glej}
+\def\alsoseename{glej tudi}
+\def\refname{Viri}
+\def\tablename{Tabela\ }
+
+% tekoci datum
+
+\def\today{\number\day. \ifcase\month\or
+ januar\or februar\or marec\or april\or maj\or junij\or
+ julij\or avgust\or september\or oktober\or november\or december\fi
+ \space\number\year}
+
+
+% slovenski narekovaji
+
+\def\lqlq{\leavevmode\hbox{,\kern-.1em,}}
+\def\rqrq{\leavevmode\hbox{`\kern-.1em`}}
+
+\endinput
diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/tabela.tex b/admin/survey/modules/mod_360_1KA/latexkosi/tabela.tex new file mode 100644 index 0000000..2823ed7 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/tabela.tex @@ -0,0 +1,11 @@ +\documentclass[landscape]{report}
+\usepackage[cp1250]{inputenc}
+\usepackage{csz}
+\usepackage{sloven2e}
+\usepackage{longtable}
+\usepackage{geometry}
+\newgeometry{left=0cm,bottom=0cm}
+\begin{document}
+\footnotesize
+\renewcommand*{\arraystretch}{1.25}
+\renewcommand{\tabcolsep}{1mm}
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/uvod.tex b/admin/survey/modules/mod_360_1KA/latexkosi/uvod.tex new file mode 100644 index 0000000..7bdcdec --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/uvod.tex @@ -0,0 +1,7 @@ +\textbf{ANALIZA 360° STOPINJ:}
+\begin{itemize}
+\item je mera povratnih informacij vedenj in kompetenc,
+\item zagotavlja povratne informacije odnosu podjetja (nadrejenih, podrejenih, sodelavcev) do zaposlenega,
+\item obravnava spretnosti kot so: komuniciranje, vodenje, odločanje, ravnanje itd.,
+\item se osredotoča na subjektivna področja, kot so značaj zaposlenega in njegova učinkovitost.
+\end{itemize}
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/varstvo_osebnih_podatkov.tex b/admin/survey/modules/mod_360_1KA/latexkosi/varstvo_osebnih_podatkov.tex new file mode 100644 index 0000000..cb31f1e --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/varstvo_osebnih_podatkov.tex @@ -0,0 +1,8 @@ +
+\chapter{Dodatek}
+Vse ocene, izsledki in poročila (bodisi individualna poročila bodisi skupna poročila) vsebujejo osebne in občutljive osebne podatke kandidatov in so zato strogo zaupne narave. Njihova uporaba, posredovanje, dostopnost in arhiviranje mora biti dosledno izvedeno v skladu z Zakonom o varstvu osebnih podatkov (ZVOP-1, Ur.l. RS, št. 86/2004, Ur.l. RS, št. 113/2005-ZInfP, 51/2007-ZUstS-A, 67/2007, 94/2007-UPB1). S predajo teh podatkov Pogodbeniku, se le-ta obvezuje, da bo s temi podatki ravnal v skladu z zgoraj omenjenim zakonom in da prevzame popolno odgovornost za nepravilno uporabo, nepooblaščen dostop ali neupravičeno posredovanje tretjim osebam.
+
+
+
+\chapter{Varstvo osebnih podatkov}
+Vsi podatki o kandidatih (bodisi individualna poročila bodisi skupna poročila), ki vsebujejo psihološke podatke kandidatov ter ocene, izsledke in poročila ocenjevalnega centra so občutljivi podatki in so strogo zaupne narave. Njihova uporaba, posredovanje, dostopnost in arhiviranje mora biti dosledno izvedeno v skladu z Zakonom o varstvu osebnih podatkov (ZVOP-1, Ur.l. RS, št. 86/2004, Ur.l. RS, št. 113/2005-ZInfP, 51/2007-ZUstS-A, 67/2007, 94/2007-UPB1). S predajo teh podatkov Pogodbeniku, se le-ta obvezuje, da bo s temi podatki ravnal v skladu z zgoraj omenjenim zakonom in da prevzame popolno odgovornost za nepravilno uporabo, nepooblaščen dostop ali neupravičeno posredovanje tretjim osebam.
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/latexkosi/z-noga.tex b/admin/survey/modules/mod_360_1KA/latexkosi/z-noga.tex new file mode 100644 index 0000000..815ab68 --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/latexkosi/z-noga.tex @@ -0,0 +1 @@ +\end{document}
\ No newline at end of file diff --git a/admin/survey/modules/mod_360_1KA/results/.gitignore b/admin/survey/modules/mod_360_1KA/results/.gitignore new file mode 100644 index 0000000..a3a0c8b --- /dev/null +++ b/admin/survey/modules/mod_360_1KA/results/.gitignore @@ -0,0 +1,2 @@ +*
+!.gitignore
\ No newline at end of file |
