1127 lines
107 KiB
R
1127 lines
107 KiB
R
# run first
|
|
#params <- commandArgs(trailingOnly=TRUE)
|
|
#ID <- params[1]
|
|
|
|
#source("Evalvacija/R/koda.r")
|
|
|
|
#Ali naj generira tudi tabele za vse študente ali samo za študente doloèenega programa
|
|
allstudents <- FALSE
|
|
sortByAverage <- TRUE # if true sort by average, else by name
|
|
sortbykrediti<-TRUE #if true sort by krediti (izbor.predmeti.po.redni.krediti, izbor.predmeti.po.izredni.krediti)
|
|
|
|
|
|
katedre <- read.csv2("Evalvacija/temp/katedre.csv",sep=";", header=T, fill=T,stringsAsFactors=FALSE)
|
|
katedre <- katedre[-which(katedre$Katedra == ""), ]
|
|
katedre<-katedre[!is.na(katedre$Katedra),]
|
|
#Sortirano ocene izvajalcev in ocene predmetov glede na KATEDRE
|
|
programi <- merge(programi, katedre[c("ID_programa", "ID_katedre", "Katedra")], by.x="student.program.sifra", by.y="ID_programa", all.x=TRUE)
|
|
programi <- subset(programi, !is.na(student.program.sifra))
|
|
programi <- subset(programi, !is.na(Katedra))
|
|
programi <- programi[order(programi$student.program.ime),]
|
|
Porocilo.izvajalci<-merge(povprecja.izvajalci.programi, katedre[c("ID_programa","ID_katedre","Katedra")], by.x=c("program.studentov"),by.y=("ID_programa"), all=TRUE,sort=FALSE)
|
|
Porocilo.predmeti<-merge(povprecja.predmeti.programi, katedre[c("ID_programa","ID_katedre","Katedra")], by.x=c("program.studentov"),by.y=("ID_programa"), all=TRUE,sort=FALSE)
|
|
povprecja.izvajalci.katedra<-merge(povprecja.izvajalci, Porocilo.izvajalci[c("izvajalec.sifra","predmet.sifra","ID_katedre","Katedra")], by=c("izvajalec.sifra","predmet.sifra"),all=TRUE, sort=FALSE)
|
|
povprecja.predmeti.katedra<-merge(povprecja.predmeti, Porocilo.predmeti[c("predmet.sifra","ID_katedre","Katedra")], by=c("predmet.sifra"), all=TRUE,sort=FALSE)
|
|
|
|
|
|
|
|
|
|
# making latex files
|
|
katedre.tex <- NULL
|
|
for (katedra in programi$Katedra) {
|
|
ime.katedre<- unique(Hmisc::latexTranslate(programi[programi$Katedra==katedra,"Katedra"]))
|
|
|
|
## lecturer total programme averages ##
|
|
program.izvajalci.skupaj.data <- subset(Porocilo.izvajalci, Katedra == katedra & N_anket >= minEnot)
|
|
if (nrow(program.izvajalci.skupaj.data) > 0) {
|
|
program.izvajalci.skupaj <- aggregate(program.izvajalci.skupaj.data[c(paste0(vars.izvajalec$cont$vars,"_mean"),"izvajalec.ocena.SKUPAJ")], by=program.izvajalci.skupaj.data[c("izvajalec.sifra", "NAZIV.PEDAGOGA")], FUN=mean, na.rm=TRUE)
|
|
st.predmetov <- as.data.frame(table(program.izvajalci.skupaj.data$izvajalec.sifra))
|
|
program.izvajalci.skupaj <- merge(st.predmetov, program.izvajalci.skupaj, by.x="Var1", by.y="izvajalec.sifra", all=TRUE, sort=FALSE)
|
|
rownames(program.izvajalci.skupaj) <- formatProgImena(program.izvajalci.skupaj$NAZIV.PEDAGOGA, program.izvajalci.skupaj$izvajalec.ocena.SKUPAJ)
|
|
program.izvajalci.skupaj <- program.izvajalci.skupaj[order(program.izvajalci.skupaj$izvajalec.ocena.SKUPAJ, decreasing=TRUE), !(colnames(program.izvajalci.skupaj) %in% c("Var1", "NAZIV.PEDAGOGA"))] # sort and drop unneeded columns
|
|
program.izvajalci.skupaj <- rbind(program.izvajalci.skupaj, c("-", colMeans(program.izvajalci.skupaj[2:ncol(program.izvajalci.skupaj)], na.rm=TRUE)), c("-", vars.izvajalec$cont$meansFDV))
|
|
program.izvajalci.skupaj <- formatNA(program.izvajalci.skupaj, decimalke=c(0,as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj), pobarvanka=c("NE",as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
vsota_izvajalcev_programa<-sum(program.izvajalci.skupaj$izvajalec.ocena.SKUPAJ != ".")-2
|
|
rownames(program.izvajalci.skupaj)[(nrow(program.izvajalci.skupaj)-1):nrow(program.izvajalci.skupaj)] <- c(paste0("\\hline \\textbf{Povpreèje programa (",vsota_izvajalcev_programa, " izvajalcev)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.izvajalci.st, " predmetov)}"))
|
|
colnames(program.izvajalci.skupaj) <- latex.rotate(c("Št. predmetov", Hmisc::latexTranslate(as.character(vars.izvajalec$cont$ime.kratko)), "\\textbf{Skupaj}"))
|
|
program.izvajalci.skupaj.tex <- capture.output(Hmisc::latex(program.izvajalci.skupaj, caption="Povpreèja \\textbf{izvajalcev}, sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H",
|
|
rowlabel.just="A{12cm}", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
insert.bottom=paste("{\\footnotesize \\textit{- Podatek je manj pomemben ali težko izraèunljiv.}}"),
|
|
col.just=c("c|",rep_len("c", length(vars.izvajalec$cont$vars)),"|c")))
|
|
} else {
|
|
program.izvajalci.skupaj.tex <- "Ni ocen."
|
|
}
|
|
## /lecturer total programme averages/ ##
|
|
|
|
## lecturer total averages ##
|
|
program.izvajalci <- subset(povprecja.izvajalci.katedra, Katedra==katedra & N_anket>3)
|
|
if (nrow(program.izvajalci) > 0) {
|
|
program.izvajalci.skupaj.vsi <- aggregate(program.izvajalci[c(paste0(vars.izvajalec$cont$vars,"_mean"),"izvajalec.ocena.SKUPAJ")], by=program.izvajalci[c("izvajalec.sifra", "NAZIV.PEDAGOGA")], FUN=mean, na.rm=TRUE)
|
|
st.predmetov <- as.data.frame(table(program.izvajalci$izvajalec.sifra))
|
|
program.izvajalci.skupaj.vsi <- merge(st.predmetov, program.izvajalci.skupaj.vsi, by.x="Var1", by.y="izvajalec.sifra", all=TRUE, sort=FALSE)
|
|
rownames(program.izvajalci.skupaj.vsi) <- formatProgImena(program.izvajalci.skupaj.vsi$NAZIV.PEDAGOGA, program.izvajalci.skupaj.vsi$izvajalec.ocena.SKUPAJ)
|
|
program.izvajalci.skupaj.vsi <- program.izvajalci.skupaj.vsi[order(program.izvajalci.skupaj.vsi$izvajalec.ocena.SKUPAJ, decreasing=TRUE), !(colnames(program.izvajalci.skupaj.vsi) %in% c("Var1", "NAZIV.PEDAGOGA"))] # sort and drop unneeded columns
|
|
program.izvajalci.skupaj.vsi <- rbind(program.izvajalci.skupaj.vsi, c("-", colMeans(program.izvajalci.skupaj.vsi[2:ncol(program.izvajalci.skupaj.vsi)], na.rm=TRUE)), c("-", vars.izvajalec$cont$meansFDV))
|
|
program.izvajalci.skupaj.vsi <- formatNA(program.izvajalci.skupaj.vsi, decimalke=c(0,as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj), pobarvanka=c("NE",as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
rownames(program.izvajalci.skupaj.vsi)[(nrow(program.izvajalci.skupaj.vsi)-1):nrow(program.izvajalci.skupaj.vsi)] <- c("\\hline \\textbf{Povpreèje programa (po pedagogih)}", paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.izvajalci.st, " predmetov)}"))
|
|
colnames(program.izvajalci.skupaj.vsi) <- latex.rotate(c("Št. predmetov", Hmisc::latexTranslate(as.character(vars.izvajalec$cont$ime.kratko)), "\\textbf{Skupaj}"))
|
|
program.izvajalci.skupaj.vsi.tex <- capture.output(Hmisc::latex(program.izvajalci.skupaj.vsi, caption="Skupne ocene izvajalcev", rowlabel="", file="", where="H",
|
|
rowlabel.just="A{12cm}", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
insert.bottom=paste("{\\footnotesize \\textit{- Podatek je manj pomemben ali težko izraèunljiv.}}"),
|
|
col.just=c("c|",rep_len("c", length(vars.izvajalec$cont$vars)),"|c")))
|
|
|
|
## /lecturer total averages/ ##
|
|
|
|
## lecturer course averages ##
|
|
rownames(program.izvajalci) <- make.unique(paste0(sapply(povprecja.izvajalci.katedra[rownames(program.izvajalci),"NAZIV.PEDAGOGA"], titula.rm), " (", povprecja.izvajalci.katedra[rownames(program.izvajalci),"ime.predmeta"], ")"))
|
|
program.izvajalci.redni <- program.izvajalci[program.izvajalci$NACIN_STUDIJA == "1", c("ST_STUD","N_anket","sodelujocih.pct","zavrnjenih.pct","neodzivnih.pct",paste0(vars.izvajalec$cont$vars,"_mean"),"izvajalec.ocena.SKUPAJ")]
|
|
program.izvajalci.izredni <- program.izvajalci[program.izvajalci$NACIN_STUDIJA == "2", c("ST_STUD","N_anket","sodelujocih.pct","zavrnjenih.pct","neodzivnih.pct",paste0(vars.izvajalec$cont$vars,"_mean"),"izvajalec.ocena.SKUPAJ")]
|
|
|
|
# redni
|
|
if (nrow(program.izvajalci.redni) > 0) {
|
|
|
|
# redni - students of this programme
|
|
program.izvajalci.redni.program <- subset(Porocilo.izvajalci, Katedra==katedra & NACIN_STUDIJA == "1" & N_anket > 0)[c("N_anket",paste0(vars.izvajalec$cont$vars,"_mean"),"izvajalec.ocena.SKUPAJ")]
|
|
st.ocen <- sum(!is.na(program.izvajalci.redni.program$izvajalec.ocena.SKUPAJ))
|
|
program.izvajalci.redni.program <- program.izvajalci.redni.program[order(program.izvajalci.redni.program$izvajalec.ocena.SKUPAJ, program.izvajalci.redni.program$N_anket, decreasing=TRUE),]
|
|
if (any(is.na(program.izvajalci.redni.program))) {opomba <- c(paste(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv."))} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
rownames(program.izvajalci.redni.program) <- make.unique(formatProgImena(paste0(sapply(Porocilo.izvajalci[rownames(program.izvajalci.redni.program), "NAZIV.PEDAGOGA"], titula.rm), " (", Porocilo.izvajalci[rownames(program.izvajalci.redni.program), "ime.predmeta"], ")"), program.izvajalci.redni.program$izvajalec.ocena.SKUPAJ))
|
|
program.izvajalci.redni.program <- rbind(program.izvajalci.redni.program, colMeans(program.izvajalci.redni.program, na.rm=TRUE), c("-", vars.izvajalec$cont$meansFDV))
|
|
program.izvajalci.redni.program1 <- formatNA1(program.izvajalci.redni.program[1:1], decimalke=0, pobarvanka=FDVstopnjaPobarvanka$n.anket, na.repl=".")
|
|
program.izvajalci.redni.program2 <- formatNA(program.izvajalci.redni.program[2:8], decimalke=c(as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj), pobarvanka=c(as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
program.izvajalci.redni.program<-cbind(program.izvajalci.redni.program1,program.izvajalci.redni.program2)
|
|
#program.izvajalci.redni.program <- formatNA(program.izvajalci.redni.program, decimalke=c(0,as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj), pobarvanka=c(FDVstopnjaPobarvanka$n.anket,as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
rownames(program.izvajalci.redni.program)[(nrow(program.izvajalci.redni.program)-1):nrow(program.izvajalci.redni.program)] <- c(paste0("\\hline \\textbf{Povpreèje programa (", st.ocen, " predmetov)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.izvajalci.st, " IPP)}"))
|
|
colnames(program.izvajalci.redni.program) <- latex.rotate(c("Št. odgovorov", Hmisc::latexTranslate(as.character(vars.izvajalec$cont$ime.kratko)), "\\textbf{Skupaj}"))
|
|
program.izvajalci.redni.program.tex <- c(capture.output(Hmisc::latex(program.izvajalci.redni.program, caption="Povpreèja \\textbf{izvajalcev pri predmetih} (anketa PRED izpitom), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c("c|",rep_len("c", length(vars.izvajalec$cont$vars)),"|c"), rowlabel.just="A{12cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
} else {
|
|
program.izvajalci.redni.tex <- "Ni ocen."
|
|
program.izvajalci.redni.program.tex <- "Ni ocen."
|
|
}
|
|
|
|
# izredni - all students
|
|
if (nrow(program.izvajalci.izredni) > 0) {
|
|
if (allstudents) {
|
|
if (any(is.na(program.izvajalci.izredni))) {opombaIzvIzredni <- c(paste(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv."))} else {opombaIzvIzredni <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
program.izvajalci.izredni <- program.izvajalci.izredni[order(program.izvajalci.izredni$izvajalec.ocena.SKUPAJ, decreasing=TRUE),]
|
|
rownames(program.izvajalci.izredni) <- formatProgImena(rownames(program.izvajalci.izredni), program.izvajalci.izredni$izvajalec.ocena.SKUPAJ)
|
|
program.izvajalci.izredni <- rbind(program.izvajalci.izredni, colMeans(program.izvajalci.izredni, na.rm=TRUE), c("-", "-", "-", "-", "-", vars.izvajalec$cont$meansFDV))
|
|
program.izvajalci.izredni <- formatNA(program.izvajalci.izredni, decimalke=c(0,0,0,0,0,as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj), pobarvanka=c("NE","NE",FDVstopnjaPobarvanka$skupaj,"NE","NE",as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
rownames(program.izvajalci.izredni)[(nrow(program.izvajalci.izredni)-1):nrow(program.izvajalci.izredni)] <- c("\\hline \\textbf{Povpreèje programa}", paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.izvajalci.st, " predmetov)}"))
|
|
colnames(program.izvajalci.izredni) <- latex.rotate(c("Št. vpisanih", "Št. odgovorov", "\\% odgovorov", "\\% zavrnitev", "\\% nesodelujoèi", Hmisc::latexTranslate(as.character(vars.izvajalec$cont$ime.kratko)), "\\textbf{Skupaj}"))
|
|
program.izvajalci.izredni.tex <- c(capture.output(Hmisc::latex(program.izvajalci.izredni, caption="Povpreèja \\textbf{izvajalcev pri predmetih} (anketa PRED izpitom), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c(rep_len("c",4),"c|",rep_len("c", length(vars.izvajalec$cont$vars)),"|c"), rowlabel.just="A{8.9cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opombaIzvIzredni, "}}"))))
|
|
}
|
|
|
|
# izredni - students of this programme
|
|
program.izvajalci.izredni.program <- subset(Porocilo.izvajalci, Katedra==katedra & NACIN_STUDIJA == "2" & N_anket > 0)[c("N_anket",paste0(vars.izvajalec$cont$vars,"_mean"),"izvajalec.ocena.SKUPAJ")]
|
|
st.ocen <- sum(!is.na(program.izvajalci.izredni.program$izvajalec.ocena.SKUPAJ))
|
|
program.izvajalci.izredni.program <- program.izvajalci.izredni.program[order(program.izvajalci.izredni.program$izvajalec.ocena.SKUPAJ, program.izvajalci.izredni.program$N_anket, decreasing=TRUE),]
|
|
if (any(is.na(program.izvajalci.izredni.program))) {opomba <- c(paste(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv."))} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
rownames(program.izvajalci.izredni.program) <- formatProgImena(paste0(sapply(Porocilo.izvajalci[rownames(program.izvajalci.izredni.program), "NAZIV.PEDAGOGA"], titula.rm), " (", Porocilo.izvajalci[rownames(program.izvajalci.izredni.program), "ime.predmeta"], ")"), program.izvajalci.izredni.program$izvajalec.ocena.SKUPAJ)
|
|
program.izvajalci.izredni.program <- rbind(program.izvajalci.izredni.program, colMeans(program.izvajalci.izredni.program, na.rm=TRUE), c("-", vars.izvajalec$cont$meansFDV))
|
|
program.izvajalci.izredni.program1 <- formatNA1(program.izvajalci.izredni.program[1:1], decimalke=0, pobarvanka=FDVstopnjaPobarvanka$n.anket, na.repl=".")
|
|
program.izvajalci.izredni.program2 <- formatNA(program.izvajalci.izredni.program[2:8], decimalke=c(as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj), pobarvanka=c(as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
program.izvajalci.izredni.program<-cbind(program.izvajalci.izredni.program1,program.izvajalci.izredni.program2)
|
|
#program.izvajalci.izredni.program <- formatNA(program.izvajalci.izredni.program, decimalke=c(0,as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj), pobarvanka=c(FDVstopnjaPobarvanka$n.anket,as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
rownames(program.izvajalci.izredni.program)[(nrow(program.izvajalci.izredni.program)-1):nrow(program.izvajalci.izredni.program)] <- c(paste0("\\hline \\textbf{Povpreèje programa (", st.ocen, " predmetov)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.izvajalci.st, " IPP)}"))
|
|
colnames(program.izvajalci.izredni.program) <- latex.rotate(c("Št. odgovorov", Hmisc::latexTranslate(as.character(vars.izvajalec$cont$ime.kratko)), "\\textbf{Skupaj}"))
|
|
program.izvajalci.izredni.program.tex <- c(capture.output(Hmisc::latex(program.izvajalci.izredni.program, caption="Povpreèja \\textbf{izvajalcev pri predmetih} (anketa PRED izpitom), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c("c|",rep_len("c", length(vars.izvajalec$cont$vars)),"|c"), rowlabel.just="A{12cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
|
|
} else {
|
|
program.izvajalci.izredni.tex <- "Ni ocen."
|
|
program.izvajalci.izredni.program.tex <- "Ni ocen."
|
|
}
|
|
} else {
|
|
program.izvajalci.skupaj.vsi.tex <- "Ni ocen."
|
|
program.izvajalci.redni.tex <- "Ni ocen."
|
|
program.izvajalci.redni.program.tex <- "Ni ocen."
|
|
program.izvajalci.izredni.tex <- "Ni ocen."
|
|
program.izvajalci.izredni.program.tex <- "Ni ocen."
|
|
}
|
|
|
|
## /lecturer course averages/ ##
|
|
|
|
|
|
|
|
stopnja <- NULL
|
|
## course averages ##
|
|
program.predmeti <- subset(povprecja.predmeti.katedra, Katedra==katedra & N_anket>3)
|
|
if (nrow(program.predmeti) > 0) {
|
|
stopnja <- names(sort(table(program.predmeti$STOPNJA),decreasing=TRUE))[1]
|
|
# faculty averages for courese tables #
|
|
if (stopnja==1) {
|
|
FDVmeansPredmet_BDorBPpred <- c(FDVpredmeti["1", c("ST_STUD","N_anket","sodelujocih.pct","zavrnjenih.pct","neodzivnih.pct")], vars.predmet$cont$meansFDV[c(vars.predmet$cont$pred, "povprecje.ocen.pred")])
|
|
FDVmeansPredmet_BDorBPpo <- c(FDVpredmeti["1", c("ST_STUD","N_anket_po_izpitu","sodelujocih.pct_po_izpitu","zavrnjenih.pct_po_izpitu","neodzivnih.pct_po_izpitu")], vars.predmet$cont$meansFDV[c(vars.predmet$cont$po, "povprecje.ocen.po")], vars.predmet$krediti$meansFDV)
|
|
} else if (stopnja==2) {
|
|
FDVmeansPredmet_BDorBPpred <- c(FDVpredmeti["2", c("ST_STUD","N_anket","sodelujocih.pct","zavrnjenih.pct","neodzivnih.pct")], vars.predmet$cont$meansFDV[c(vars.predmet$cont$pred, "povprecje.ocen.pred")])
|
|
FDVmeansPredmet_BDorBPpo <- c(FDVpredmeti["2", c("ST_STUD","N_anket_po_izpitu","sodelujocih.pct_po_izpitu","zavrnjenih.pct_po_izpitu","neodzivnih.pct_po_izpitu")], vars.predmet$cont$meansFDV[c(vars.predmet$cont$po, "povprecje.ocen.po")], vars.predmet$krediti$meansFDV)
|
|
} else {
|
|
FDVmeansPredmet_BDorBPpred <- c(FDVpredmeti["skupaj", c("ST_STUD","N_anket","sodelujocih.pct","zavrnjenih.pct","neodzivnih.pct")], vars.predmet$cont$meansFDV[c(vars.predmet$cont$pred, "povprecje.ocen.pred")])
|
|
FDVmeansPredmet_BDorBPpo <- c(FDVpredmeti["skupaj", c("ST_STUD","N_anket_po_izpitu","sodelujocih.pct_po_izpitu","zavrnjenih.pct_po_izpitu","neodzivnih.pct_po_izpitu")], vars.predmet$cont$meansFDV[c(vars.predmet$cont$po, "povprecje.ocen.po")], vars.predmet$krediti$meansFDV)
|
|
}
|
|
#/faculty averages for courese tables /#
|
|
|
|
rownames(program.predmeti) <- make.unique(povprecja.predmeti.katedra[rownames(program.predmeti),"ime.predmeta"])
|
|
program.predmeti.pred.redni <- program.predmeti[program.predmeti$NACIN_STUDIJA=="1", c("ST_STUD","N_anket","sodelujocih.pct","zavrnjenih.pct","neodzivnih.pct",paste0(vars.predmet$cont$pred,"_mean"),"predmet.ocena.SKUPAJ.pred")]
|
|
program.predmeti.pred.izredni <- program.predmeti[program.predmeti$NACIN_STUDIJA=="2", c("ST_STUD","N_anket","sodelujocih.pct","zavrnjenih.pct","neodzivnih.pct",paste0(vars.predmet$cont$pred,"_mean"),"predmet.ocena.SKUPAJ.pred")]
|
|
program.predmeti.po.redni <- program.predmeti[program.predmeti$NACIN_STUDIJA=="1", c("ST_STUD","N_anket_po_izpitu","sodelujocih.pct_po_izpitu","zavrnjenih.pct_po_izpitu","neodzivnih.pct_po_izpitu",paste0(vars.predmet$cont$po,"_mean"),"predmet.ocena.SKUPAJ.po","predmet.ocena.krediti_mean")]
|
|
program.predmeti.po.izredni <- program.predmeti[program.predmeti$NACIN_STUDIJA=="2", c("ST_STUD","N_anket_po_izpitu","sodelujocih.pct_po_izpitu","zavrnjenih.pct_po_izpitu","neodzivnih.pct_po_izpitu",paste0(vars.predmet$cont$po,"_mean"),"predmet.ocena.SKUPAJ.po","predmet.ocena.krediti_mean")]
|
|
|
|
if (nrow(program.predmeti.pred.redni) > 0) {
|
|
# PRED - redni - all students
|
|
if (allstudents) {
|
|
if (any(is.na(program.predmeti.pred.redni))) {opomba <- c(paste(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv."))} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
program.predmeti.pred.redni <- program.predmeti.pred.redni[order(program.predmeti.pred.redni$predmet.ocena.SKUPAJ.pred, program.predmeti.pred.redni$N_anket, decreasing=TRUE),]
|
|
rownames(program.predmeti.pred.redni) <- formatProgImena(rownames(program.predmeti.pred.redni), program.predmeti.pred.redni$predmet.ocena.SKUPAJ.pred)
|
|
program.predmeti.pred.redni <- rbind(program.predmeti.pred.redni, colMeans(program.predmeti.pred.redni, na.rm=TRUE), unlist(FDVmeansPredmet_BDorBPpred))
|
|
program.predmeti.pred.redni <- formatNA(program.predmeti.pred.redni, decimalke=c(0,0,0,0,0,as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$pred]),decimalkePredmSkupaj), pobarvanka=c("NE", "NE", "NE", "NE", "NE", vars.predmet$cont$pobarvanka[vars.predmet$cont$pred], povprecje.ocen.pred=pobarvankaPredmSkupaj), na.repl=".")
|
|
rownames(program.predmeti.pred.redni)[(nrow(program.predmeti.pred.redni)-1):nrow(program.predmeti.pred.redni)] <- c("\\hline \\textbf{Povpreèje programa (po predmetih)}", paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.pred, " predmetov)}"))
|
|
colnames(program.predmeti.pred.redni) <- latex.rotate(c("Št. vpisanih", "Št. odgovorov", "\\% odgovorov", "\\% zavrnitev", "\\% nesodelujoèih", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$pred])), "\\textbf{Skupaj}"))
|
|
program.predmeti.pred.redni.tex <- c(capture.output(Hmisc::latex(program.predmeti.pred.redni, caption="Ocene predmetov - anketa PRED izpitom (redne izvedbe)", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c(rep_len("c",4),"c|",rep_len("c", length(vars.predmet$cont$pred)),"|c"), rowlabel.just="A{8.1cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
}
|
|
|
|
# PRED - redni - students of this programme
|
|
program.predmeti.pred.redni.program <- subset(Porocilo.predmeti, Katedra==katedra & NACIN_STUDIJA == "1" & N_anket > 0)[c("N_anket",paste0(vars.predmet$cont$pred,"_mean"),"predmet.ocena.SKUPAJ.pred")]
|
|
st.predmetov <- sum(!is.na(program.predmeti.pred.redni.program$predmet.ocena.SKUPAJ.pred))
|
|
program.predmeti.pred.redni.program <- program.predmeti.pred.redni.program[order(program.predmeti.pred.redni.program$predmet.ocena.SKUPAJ.pred, program.predmeti.pred.redni.program$N_anket, decreasing=TRUE),]
|
|
if (any(is.na(program.predmeti.pred.redni.program))) {opomba <- c(paste(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv."))} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
rownames(program.predmeti.pred.redni.program) <- make.unique(formatProgImena(Porocilo.predmeti[rownames(program.predmeti.pred.redni.program), "ime.predmeta"], program.predmeti.pred.redni.program$predmet.ocena.SKUPAJ.pred))
|
|
program.predmeti.pred.redni.program <- rbind(program.predmeti.pred.redni.program, colMeans(program.predmeti.pred.redni.program, na.rm=TRUE), unlist(c("-", vars.predmet$cont$meansFDV[c(vars.predmet$cont$pred, "povprecje.ocen.pred")])))
|
|
program.predmeti.pred.redni.program1 <- formatNA1(program.predmeti.pred.redni.program[1:1], decimalke=c(0), pobarvanka=c(FDVstopnjaPobarvanka$n.anket), na.repl=".")
|
|
program.predmeti.pred.redni.program2 <- formatNA(program.predmeti.pred.redni.program[2:9], decimalke=c(as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$pred]),decimalkePredmSkupaj), pobarvanka=c(vars.predmet$cont$pobarvanka[vars.predmet$cont$pred], povprecje.ocen.pred=pobarvankaPredmSkupaj), na.repl=".")
|
|
program.predmeti.pred.redni.program<-cbind(program.predmeti.pred.redni.program1,program.predmeti.pred.redni.program2)
|
|
rownames(program.predmeti.pred.redni.program)[(nrow(program.predmeti.pred.redni.program)-1):nrow(program.predmeti.pred.redni.program)] <- c(paste0("\\hline \\textbf{Povpreèje programa (", st.predmetov, " predmetov)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.pred, " predmetov)}"))
|
|
colnames(program.predmeti.pred.redni.program) <- latex.rotate(c("Št. odgovorov", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$pred])), "\\textbf{Skupaj}"))
|
|
program.predmeti.pred.redni.program.tex <- c(capture.output(Hmisc::latex(program.predmeti.pred.redni.program, caption="Povpreèja \\textbf{predmetov} (anketa PRED izpitom), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c("c|",rep_len("c", length(vars.predmet$cont$pred)),"|c"), rowlabel.just="A{11cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
} else {
|
|
program.predmeti.pred.redni.tex <- "Ni ocen."
|
|
program.predmeti.pred.redni.program.tex <- NULL
|
|
}
|
|
|
|
if (nrow(program.predmeti.pred.izredni) > 0) {
|
|
# PRED - izredni - all students
|
|
if (allstudents) {
|
|
if (any(is.na(program.predmeti.pred.izredni))) {opomba <- c(paste(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv."))} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
program.predmeti.pred.izredni <- program.predmeti.pred.izredni[order(program.predmeti.pred.izredni$predmet.ocena.SKUPAJ.pred, program.predmeti.pred.izredni$N_anket, decreasing=TRUE),]
|
|
rownames(program.predmeti.pred.izredni) <- formatProgImena(rownames(program.predmeti.pred.izredni), program.predmeti.pred.izredni$predmet.ocena.SKUPAJ.pred)
|
|
program.predmeti.pred.izredni <- rbind(program.predmeti.pred.izredni, colMeans(program.predmeti.pred.izredni, na.rm=TRUE), unlist(FDVmeansPredmet_BDorBPpred))
|
|
program.predmeti.pred.izredni <- formatNA(program.predmeti.pred.izredni, decimalke=c(0,0,0,0,0,as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$pred]),decimalkePredmSkupaj), pobarvanka=c("NE", "NE", "NE", "NE", "NE", vars.predmet$cont$pobarvanka[vars.predmet$cont$pred], povprecje.ocen.pred=pobarvankaPredmSkupaj), na.repl=".")
|
|
rownames(program.predmeti.pred.izredni)[(nrow(program.predmeti.pred.izredni)-1):nrow(program.predmeti.pred.izredni)] <- c("\\hline \\textbf{Povpreèje programa (po predmetih)}", paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.pred, " predmetov)}"))
|
|
colnames(program.predmeti.pred.izredni) <- latex.rotate(c("Št. vpisanih", "Št. odgovorov", "\\% odgovorov", "\\% zavrnitev", "\\% nesodelujoèih", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$pred])), "\\textbf{Skupaj}"))
|
|
program.predmeti.pred.izredni.tex <- c(capture.output(Hmisc::latex(program.predmeti.pred.izredni, caption="Povpreèja \\textbf{predmetov} (anketa PRED izpitom), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c(rep_len("c",4),"c|",rep_len("c", length(vars.predmet$cont$pred)),"|c"), rowlabel.just="A{8.1cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
}
|
|
|
|
# PRED - izredni - students of this programme
|
|
program.predmeti.pred.izredni.program <- subset(Porocilo.predmeti, Katedra==katedra & NACIN_STUDIJA == "2" & N_anket > 0)[c("N_anket",paste0(vars.predmet$cont$pred,"_mean"),"predmet.ocena.SKUPAJ.pred")]
|
|
st.predmetov <- sum(!is.na(program.predmeti.pred.izredni.program$predmet.ocena.SKUPAJ.pred))
|
|
program.predmeti.pred.izredni.program <- program.predmeti.pred.izredni.program[order(program.predmeti.pred.izredni.program$predmet.ocena.SKUPAJ.pred, program.predmeti.pred.izredni.program$N_anket, decreasing=TRUE),]
|
|
if (any(is.na(program.predmeti.pred.izredni.program))) {opomba <- c(paste0(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv."))} else {opomba <- paste("- Podatek je manj pomemben ali težko izraèunljiv.")}
|
|
rownames(program.predmeti.pred.izredni.program) <- formatProgImena(Porocilo.predmeti[rownames(program.predmeti.pred.izredni.program), "ime.predmeta"], program.predmeti.pred.izredni.program$predmet.ocena.SKUPAJ.pred)
|
|
program.predmeti.pred.izredni.program <- rbind(program.predmeti.pred.izredni.program, colMeans(program.predmeti.pred.izredni.program, na.rm=TRUE), unlist(c("-", vars.predmet$cont$meansFDV[c(vars.predmet$cont$pred, "povprecje.ocen.pred")])))
|
|
program.predmeti.pred.izredni.program1 <- formatNA1(program.predmeti.pred.izredni.program[1:1], decimalke=c(0), pobarvanka=c(FDVstopnjaPobarvanka$n.anket), na.repl=".")
|
|
program.predmeti.pred.izredni.program2 <- formatNA(program.predmeti.pred.izredni.program[2:9], decimalke=c(as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$pred]),decimalkePredmSkupaj), pobarvanka=c(vars.predmet$cont$pobarvanka[vars.predmet$cont$pred], povprecje.ocen.pred=pobarvankaPredmSkupaj), na.repl=".")
|
|
program.predmeti.pred.izredni.program<-cbind(program.predmeti.pred.izredni.program1,program.predmeti.pred.izredni.program2)
|
|
rownames(program.predmeti.pred.izredni.program)[(nrow(program.predmeti.pred.izredni.program)-1):nrow(program.predmeti.pred.izredni.program)] <- c(paste0("\\hline \\textbf{Povpreèje programa (", st.predmetov, " predmetov)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.pred, " predmetov)}"))
|
|
colnames(program.predmeti.pred.izredni.program) <- latex.rotate(c("Št. odgovorov", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$pred])), "\\textbf{Skupaj}"))
|
|
program.predmeti.pred.izredni.program.tex <- c(capture.output(Hmisc::latex(program.predmeti.pred.izredni.program, caption="Povpreèja \\textbf{predmetov} (anketa PRED izpitom), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c("c|",rep_len("c", length(vars.predmet$cont$pred)),"|c"), rowlabel.just="A{11cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
} else {
|
|
program.predmeti.pred.izredni.tex <- "Ni ocen."
|
|
program.predmeti.pred.izredni.program.tex <- NULL
|
|
}
|
|
|
|
if (nrow(program.predmeti.po.redni) > 0) {
|
|
# PO - redni - all students
|
|
if (allstudents) {
|
|
if (any(is.na(program.predmeti.po.redni))) {opomba <- c(paste0(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv."))} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
program.predmeti.po.redni <- program.predmeti.po.redni[order(program.predmeti.po.redni$predmet.ocena.SKUPAJ.po, program.predmeti.po.redni$N_anket_po_izpitu, decreasing=TRUE),]
|
|
rownames(program.predmeti.po.redni) <- formatProgImena(rownames(program.predmeti.po.redni), program.predmeti.po.redni$predmet.ocena.SKUPAJ.po)
|
|
program.predmeti.po.redni <- rbind(program.predmeti.po.redni, colMeans(program.predmeti.po.redni, na.rm=TRUE), unlist(FDVmeansPredmet_BDorBPpo))
|
|
program.predmeti.po.redni <- formatNA(program.predmeti.po.redni, decimalke=c(0,0,0,0,0,as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$po]),decimalkePredmSkupaj,as.numeric(vars.predmet$krediti$decimalke)), pobarvanka=c("NE", "NE", "NE", "NE", "NE", vars.predmet$cont$pobarvanka[vars.predmet$cont$po], povprecje.ocen.po=pobarvankaPredmSkupaj, vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
rownames(program.predmeti.po.redni)[(nrow(program.predmeti.po.redni)-1):nrow(program.predmeti.po.redni)] <- c("\\hline \\textbf{Povpreèje programa (po predmetih)}", paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.po, " predmetov)}"))
|
|
colnames(program.predmeti.po.redni) <- latex.rotate(c("Št. vpisanih", "Št. odgovorov", "\\% odgovorov", "\\% zavrnitev", "\\% nesodelujoèih", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$po])), "\\textbf{Skupaj}", as.character(vars.predmet$krediti$ime.kratko)))
|
|
program.predmeti.po.redni.tex <- c(capture.output(Hmisc::latex(program.predmeti.po.redni, caption="Povpreèja \\textbf{predmetov} (anketa PO izpitu), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c(rep_len("c",4),"c|",rep_len("c", length(vars.predmet$cont$po)),"|c","|c"), rowlabel.just="A{9.4cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
}
|
|
|
|
# PO - redni - students of this programme
|
|
program.predmeti.po.redni.program <- subset(Porocilo.predmeti, Katedra==katedra & NACIN_STUDIJA == "1" & (N_anket >= minEnot | N_anket_po_izpitu >= minEnot))[c("N_anket_po_izpitu",paste0(vars.predmet$cont$po,"_mean"),"predmet.ocena.SKUPAJ.po","predmet.ocena.krediti_mean")]
|
|
st.predmetov <- sum(!is.na(program.predmeti.po.redni.program$predmet.ocena.SKUPAJ.po))
|
|
program.predmeti.po.redni.program <- program.predmeti.po.redni.program[order(program.predmeti.po.redni.program$predmet.ocena.SKUPAJ.po, program.predmeti.po.redni.program$N_anket_po_izpitu, decreasing=TRUE),]
|
|
if (any(is.na(program.predmeti.po.redni.program))) {opomba <- c(paste0(". Podatek ni prikazan zaradi majhnega števila enot.","- Podatek je manj pomemben ali težko izraèunljiv.\\newline * Ocene za ustreznost kreditnih toèk se razlikujejo od ostalih komponent (glej metodološka pojasnila): {\\color{Orange}\\textbf{Oranžno}} so oznaèena {\\color{Orange}\\textbf{opozorilna}} odstopanja ({\\color{Orange}\\textbf{2.4-2.6}}) in ({\\color{Orange}\\textbf{3.4-3.6}}), {\\color{BrickRed}\\textbf{rdeèe}} pa {\\color{BrickRed}\\textbf{kritièna}} odstopanja (pod {\\color{BrickRed}\\textbf{2.3}}) in (nad {\\color{BrickRed}\\textbf{3.7}})."))} else {opomba <- c(paste("- Podatek je manj pomemben ali težko izraèunljiv.\\newline * Ocene za ustreznost kreditnih toèk se razlikujejo od ostalih komponent (glej metodološka pojasnila): {\\color{Orange}\\textbf{Oranžno}} so oznaèena {\\color{Orange}\\textbf{opozorilna}} odstopanja ({\\color{Orange}\\textbf{2.4-2.6}}) in ({\\color{Orange}\\textbf{3.4-3.6}}), {\\color{BrickRed}\\textbf{rdeèe}} pa {\\color{BrickRed}\\textbf{kritièna}} odstopanja (pod {\\color{BrickRed}\\textbf{2.3}}) in (nad {\\color{BrickRed}\\textbf{3.7}})."))}
|
|
rownames(program.predmeti.po.redni.program) <- formatProgImena(Porocilo.predmeti[rownames(program.predmeti.po.redni.program), "ime.predmeta"], program.predmeti.po.redni.program$predmet.ocena.SKUPAJ.po)
|
|
program.predmeti.po.redni.program <- rbind(program.predmeti.po.redni.program, colMeans(program.predmeti.po.redni.program, na.rm=TRUE), unlist(c("-", vars.predmet$cont$meansFDV[c(vars.predmet$cont$po, "povprecje.ocen.po")], vars.predmet$krediti$meansFDV)))
|
|
program.predmeti.po.redni.program1 <- formatNA1(program.predmeti.po.redni.program[1:1], decimalke=c(0), pobarvanka=c(FDVstopnjaPobarvanka$n.anket), na.repl=".")
|
|
program.predmeti.po.redni.program2 <- formatNA(program.predmeti.po.redni.program[2:7], decimalke=c(as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$po]),decimalkePredmSkupaj,as.numeric(vars.predmet$krediti$decimalke)), pobarvanka=c(vars.predmet$cont$pobarvanka[vars.predmet$cont$po], povprecje.ocen.po=pobarvankaPredmSkupaj, vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
program.predmeti.po.redni.program<-cbind(program.predmeti.po.redni.program1,program.predmeti.po.redni.program2)
|
|
rownames(program.predmeti.po.redni.program)[(nrow(program.predmeti.po.redni.program)-1):nrow(program.predmeti.po.redni.program)] <- c(paste0("\\hline \\textbf{Povpreèje programa (", st.predmetov, " predmetov)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.po, " predmetov)}"))
|
|
colnames(program.predmeti.po.redni.program) <- latex.rotate(c("Št. odgovorov", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$po])), "\\textbf{Skupaj}", as.character(vars.predmet$krediti$ime.kratko)))
|
|
program.predmeti.po.redni.program<-program.predmeti.po.redni.program[c(1,3,4,5,6,2,7)]
|
|
program.predmeti.po.redni.program.tex <- c(capture.output(Hmisc::latex(program.predmeti.po.redni.program, caption="Povpreèja \\textbf{predmetov} (anketa PO izpitu), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c("c|",rep_len("c", length(vars.predmet$cont$po[-1])),"|c|","|c","c"), rowlabel.just="A{12.5cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
|
|
|
|
|
|
|
|
###SORTIRANJE PO USTREZNOSTI KREDITNIH TOÈK
|
|
program.predmeti.po.redni.program.krediti <- subset(Porocilo.predmeti, Katedra==katedra & NACIN_STUDIJA == "1" & (N_anket >= minEnot | N_anket_po_izpitu >= minEnot))[c("N_anket_po_izpitu",paste0(vars.predmet$cont$po,"_mean"),"predmet.ocena.SKUPAJ.po","predmet.ocena.krediti_mean")]
|
|
st.predmetov <- sum(!is.na(program.predmeti.po.redni.program.krediti$predmet.ocena.krediti_mean))
|
|
program.predmeti.po.redni.program.krediti <- program.predmeti.po.redni.program.krediti[order(program.predmeti.po.redni.program.krediti$predmet.ocena.krediti_mean, program.predmeti.po.redni.program.krediti$N_anket_po_izpitu, decreasing=TRUE),]
|
|
if (any(is.na(program.predmeti.po.redni.program.krediti))) {opomba <- c(paste(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv.\\newline * Ocene za ustreznost kreditnih toèk se razlikujejo od ostalih komponent (glej metodološka pojasnila): {\\color{Orange}\\textbf{Oranžno}} so oznaèena {\\color{Orange}\\textbf{opozorilna}} odstopanja ({\\color{Orange}\\textbf{2.4-2.6}}) in ({\\color{Orange}\\textbf{3.4-3.6}}), {\\color{BrickRed}\\textbf{rdeèe}} pa {\\color{BrickRed}\\textbf{kritièna}} odstopanja (pod {\\color{BrickRed}\\textbf{2.3}}) in (nad {\\color{BrickRed}\\textbf{3.7}})."))} else {opomba <- c(paste("- Podatek je manj pomemben ali težko izraèunljiv.\\newline * Ocene za ustreznost kreditnih toèk se razlikujejo od ostalih komponent (glej metodološka pojasnila): {\\color{Orange}\\textbf{Oranžno}} so oznaèena {\\color{Orange}\\textbf{opozorilna}} odstopanja ({\\color{Orange}\\textbf{2.4-2.6}}) in ({\\color{Orange}\\textbf{3.4-3.6}}), {\\color{BrickRed}\\textbf{rdeèe}} pa {\\color{BrickRed}\\textbf{kritièna}} odstopanja (pod {\\color{BrickRed}\\textbf{2.3}}) in (nad {\\color{BrickRed}\\textbf{3.7}})."))}
|
|
rownames(program.predmeti.po.redni.program.krediti) <- formatProgImena(Porocilo.predmeti[rownames(program.predmeti.po.redni.program.krediti), "ime.predmeta"], program.predmeti.po.redni.program.krediti$predmet.ocena.krediti_mean)
|
|
program.predmeti.po.redni.program.krediti <- rbind(program.predmeti.po.redni.program.krediti, colMeans(program.predmeti.po.redni.program.krediti, na.rm=TRUE), unlist(c("-", vars.predmet$cont$meansFDV[c(vars.predmet$cont$po, "povprecje.ocen.po")], vars.predmet$krediti$meansFDV)))
|
|
program.predmeti.po.redni.program.krediti1 <- formatNA1(program.predmeti.po.redni.program.krediti[1:1], decimalke=c(0), pobarvanka=c(FDVstopnjaPobarvanka$n.anket), na.repl=".")
|
|
program.predmeti.po.redni.program.krediti2 <- formatNA(program.predmeti.po.redni.program.krediti[2:7], decimalke=c(as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$po]),decimalkePredmSkupaj,as.numeric(vars.predmet$krediti$decimalke)), pobarvanka=c(vars.predmet$cont$pobarvanka[vars.predmet$cont$po], povprecje.ocen.po=pobarvankaPredmSkupaj, vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
program.predmeti.po.redni.program.krediti<-cbind(program.predmeti.po.redni.program.krediti1,program.predmeti.po.redni.program.krediti2)
|
|
rownames(program.predmeti.po.redni.program.krediti)[(nrow(program.predmeti.po.redni.program.krediti)-1):nrow(program.predmeti.po.redni.program.krediti)] <- c(paste0("\\hline \\textbf{Povpreèje programa (", st.predmetov, " predmetov)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.po, " predmetov)}"))
|
|
colnames(program.predmeti.po.redni.program.krediti) <- latex.rotate(c("Št. odgovorov", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$po])), "\\textbf{Skupaj}", as.character(vars.predmet$krediti$ime.kratko)))
|
|
program.predmeti.po.redni.program.krediti<-program.predmeti.po.redni.program.krediti[c(1,3,4,5,6,2,7)]
|
|
program.predmeti.po.redni.program.krediti.tex <- c(capture.output(Hmisc::latex(program.predmeti.po.redni.program.krediti, caption="Povpreèja \\textbf{predmetov} (anketa PO izpitu), sortirana po \\textbf{Ustreznost KT}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c("c|",rep_len("c", length(vars.predmet$cont$po[-1])),"|c","|c","c"), rowlabel.just="A{12.5cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
#######
|
|
|
|
|
|
} else {
|
|
program.predmeti.po.redni.program.krediti.tex<- NULL
|
|
program.predmeti.po.redni.tex <- NULL
|
|
program.predmeti.po.redni.program.tex <- NULL
|
|
}
|
|
|
|
if (nrow(program.predmeti.po.izredni) > 0) {
|
|
# PO - izredni - all students
|
|
if (allstudents) {
|
|
if (any(is.na(program.predmeti.po.izredni))) {opomba <- c(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv.")} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
program.predmeti.po.izredni <- program.predmeti.po.izredni[order(program.predmeti.po.izredni$predmet.ocena.SKUPAJ.po, program.predmeti.po.izredni$N_anket_po_izpitu, decreasing=TRUE),]
|
|
rownames(program.predmeti.po.izredni) <- formatProgImena(rownames(program.predmeti.po.izredni), program.predmeti.po.izredni$predmet.ocena.SKUPAJ.po)
|
|
program.predmeti.po.izredni <- rbind(program.predmeti.po.izredni, colMeans(program.predmeti.po.izredni, na.rm=TRUE), unlist(FDVmeansPredmet_BDorBPpo))
|
|
program.predmeti.po.izredni <- formatNA(program.predmeti.po.izredni, decimalke=c(0,0,0,0,0,as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$po]),decimalkePredmSkupaj,as.numeric(vars.predmet$krediti$decimalke)), pobarvanka=c("NE", "NE", "NE", "NE", "NE", vars.predmet$cont$pobarvanka[vars.predmet$cont$po], povprecje.ocen.po=pobarvankaPredmSkupaj, vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
rownames(program.predmeti.po.izredni)[(nrow(program.predmeti.po.izredni)-1):nrow(program.predmeti.po.izredni)] <- c("\\hline \\textbf{Povpreèje programa (po predmetih)}", paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.po, " predmetov)}"))
|
|
colnames(program.predmeti.po.izredni) <- latex.rotate(c("Št. vpisanih", "Št. odgovorov", "\\% odgovorov", "\\% zavrnitev", "\\% nesodelujoèih", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$po])), "\\textbf{Skupaj}", as.character(vars.predmet$krediti$ime.kratko)))
|
|
program.predmeti.po.izredni.tex <- c(capture.output(Hmisc::latex(program.predmeti.po.izredni, caption="Povpreèja \\textbf{predmetov} (anketa PO izpitu), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c(rep_len("c",4),"c|",rep_len("c", length(vars.predmet$cont$po)),"|c","|c"), rowlabel.just="A{9.4cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
}
|
|
|
|
# PO - izredni - students of this programme
|
|
program.predmeti.po.izredni.program <- subset(Porocilo.predmeti, Katedra==katedra & NACIN_STUDIJA == "2" & (N_anket >= minEnot | N_anket_po_izpitu >= minEnot))[c("N_anket_po_izpitu",paste0(vars.predmet$cont$po,"_mean"),"predmet.ocena.SKUPAJ.po","predmet.ocena.krediti_mean")]
|
|
st.predmetov <- sum(!is.na(program.predmeti.po.izredni.program$predmet.ocena.SKUPAJ.po))
|
|
program.predmeti.po.izredni.program <- program.predmeti.po.izredni.program[order(program.predmeti.po.izredni.program$predmet.ocena.SKUPAJ.po, program.predmeti.po.izredni.program$N_anket_po_izpitu, decreasing=TRUE),]
|
|
if (nrow(program.predmeti.po.izredni.program)>0) {
|
|
if (any(is.na(program.predmeti.po.izredni.program))) {opomba <- c(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv.")} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
rownames(program.predmeti.po.izredni.program) <- formatProgImena(Porocilo.predmeti[rownames(program.predmeti.po.izredni.program), "ime.predmeta"], program.predmeti.po.izredni.program$predmet.ocena.SKUPAJ.po)
|
|
program.predmeti.po.izredni.program <- rbind(program.predmeti.po.izredni.program, colMeans(program.predmeti.po.izredni.program, na.rm=TRUE), unlist(c("-", vars.predmet$cont$meansFDV[c(vars.predmet$cont$po, "povprecje.ocen.po")], vars.predmet$krediti$meansFDV)))
|
|
program.predmeti.po.izredni.program1 <- formatNA1(program.predmeti.po.izredni.program[1:1], decimalke=c(0), pobarvanka=c(FDVstopnjaPobarvanka$n.anket), na.repl=".")
|
|
program.predmeti.po.izredni.program2 <- formatNA(program.predmeti.po.izredni.program[2:7], decimalke=c(as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$po]),decimalkePredmSkupaj,as.numeric(vars.predmet$krediti$decimalke)), pobarvanka=c(vars.predmet$cont$pobarvanka[vars.predmet$cont$po], povprecje.ocen.po=pobarvankaPredmSkupaj, vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
program.predmeti.po.izredni.program<-cbind(program.predmeti.po.izredni.program1,program.predmeti.po.izredni.program2)
|
|
rownames(program.predmeti.po.izredni.program)[(nrow(program.predmeti.po.izredni.program)-1):nrow(program.predmeti.po.izredni.program)] <- c(paste0("\\hline \\textbf{Povpreèje programa (", st.predmetov, " predmetov)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.po, " predmetov)}"))
|
|
colnames(program.predmeti.po.izredni.program) <- latex.rotate(c("Št. odgovorov", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$po])), "\\textbf{Skupaj}", as.character(vars.predmet$krediti$ime.kratko)))
|
|
program.predmeti.po.izredni.program<-program.predmeti.po.izredni.program[c(1,3,4,5,6,2,7)]
|
|
program.predmeti.po.izredni.program.tex <- c(capture.output(Hmisc::latex(program.predmeti.po.izredni.program, caption="Povpreèja \\textbf{predmetov} (anketa PO izpitu), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c("c|",rep_len("c", length(vars.predmet$cont$po[-1])),"|c","|c","c"), rowlabel.just="A{12.5cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
|
|
|
|
program.predmeti.po.izredni.program.krediti <- subset(Porocilo.predmeti, Katedra==katedra & NACIN_STUDIJA == "2" & (N_anket >= minEnot | N_anket_po_izpitu >= minEnot))[c("N_anket_po_izpitu",paste0(vars.predmet$cont$po,"_mean"),"predmet.ocena.SKUPAJ.po","predmet.ocena.krediti_mean")]
|
|
st.predmetov <- sum(!is.na(program.predmeti.po.izredni.program.krediti$predmet.ocena.krediti_mean))
|
|
program.predmeti.po.izredni.program.krediti <- program.predmeti.po.izredni.program.krediti[order(program.predmeti.po.izredni.program.krediti$predmet.ocena.krediti_mean, program.predmeti.po.izredni.program.krediti$N_anket_po_izpitu, decreasing=TRUE),]
|
|
if (any(is.na(program.predmeti.po.izredni.program.krediti))) {opomba <- c(". Podatek ni prikazan zaradi majhnega števila enot.","\\newline - Podatek je manj pomemben ali težko izraèunljiv.")} else {opomba <- "- Podatek je manj pomemben ali težko izraèunljiv."}
|
|
rownames(program.predmeti.po.izredni.program.krediti) <- formatProgImena(Porocilo.predmeti[rownames(program.predmeti.po.izredni.program.krediti), "ime.predmeta"], program.predmeti.po.izredni.program.krediti$predmet.ocena.krediti_mean)
|
|
program.predmeti.po.izredni.program.krediti <- rbind(program.predmeti.po.izredni.program.krediti, colMeans(program.predmeti.po.izredni.program.krediti, na.rm=TRUE), unlist(c("-", vars.predmet$cont$meansFDV[c(vars.predmet$cont$po, "povprecje.ocen.po")], vars.predmet$krediti$meansFDV)))
|
|
program.predmeti.po.izredni.program.krediti1 <- formatNA1(program.predmeti.po.izredni.program.krediti[1:1], decimalke=c(0), pobarvanka=c(FDVstopnjaPobarvanka$n.anket), na.repl=".")
|
|
program.predmeti.po.izredni.program.krediti2 <- formatNA(program.predmeti.po.izredni.program.krediti[2:7], decimalke=c(as.numeric(vars.predmet$cont$decimalke[vars.predmet$cont$po]),decimalkePredmSkupaj,as.numeric(vars.predmet$krediti$decimalke)), pobarvanka=c(vars.predmet$cont$pobarvanka[vars.predmet$cont$po], povprecje.ocen.po=pobarvankaPredmSkupaj, vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
program.predmeti.po.izredni.program.krediti<-cbind(program.predmeti.po.izredni.program.krediti1,program.predmeti.po.izredni.program.krediti2)
|
|
rownames(program.predmeti.po.izredni.program.krediti)[(nrow(program.predmeti.po.izredni.program.krediti)-1):nrow(program.predmeti.po.izredni.program.krediti)] <- c(paste0("\\hline \\textbf{Povpreèje programa (", st.predmetov, " predmetov)}"), paste0("\\hline \\textbf{Povpreèje ", fakulteta, " (", kvantili.predmeti.st.po, " predmetov)}"))
|
|
colnames(program.predmeti.po.izredni.program.krediti) <- latex.rotate(c("Št. odgovorov", Hmisc::latexTranslate(as.character(vars.predmet$cont$ime.kratko[vars.predmet$cont$po])), "\\textbf{Skupaj}", as.character(vars.predmet$krediti$ime.kratko)))
|
|
program.predmeti.po.izredni.program.krediti<-program.predmeti.po.izredni.program.krediti[c(1,3,4,5,6,2,7)]
|
|
program.predmeti.po.izredni.program.krediti.tex <- c(capture.output(Hmisc::latex(program.predmeti.po.izredni.program.krediti, caption="Povpreèja \\textbf{predmetov} (anketa PO izpitu), sortirana po \\textbf{Skupaj}", rowlabel="", file="", where="H", multicol=FALSE, longtable=TRUE, lines.page=1000,
|
|
col.just=c("c|",rep_len("c", length(vars.predmet$cont$po[-1])),"|c","|c","c"), rowlabel.just="A{12.5cm}",
|
|
insert.bottom=paste0("{\\footnotesize \\textit{", opomba, "}}"))))
|
|
}
|
|
|
|
|
|
} else {
|
|
program.predmeti.po.izredni.tex <- NULL
|
|
program.predmeti.po.izredni.program.krediti.tex<- NULL
|
|
}
|
|
|
|
} else {
|
|
program.predmeti.pred.redni.tex <- "Ni ocen."
|
|
program.predmeti.pred.izredni.tex <- "Ni ocen."
|
|
program.predmeti.po.redni.tex <- NULL
|
|
program.predmeti.po.redni.program.krediti.tex <- NULL
|
|
program.predmeti.po.izredni.tex <- NULL
|
|
program.predmeti.po.izredni.program.krediti.tex <- NULL
|
|
program.predmeti.pred.redni.program.tex <- "Ni ocen."
|
|
program.predmeti.po.redni.program.tex <- NULL
|
|
program.predmeti.pred.izredni.program.tex <- "Ni ocen."
|
|
program.predmeti.po.izredni.program.tex <- NULL
|
|
}
|
|
## /course averages/ ##
|
|
|
|
|
|
|
|
|
|
|
|
|
|
############################################################################
|
|
##POGLAVJE v izpisu za študijske programe: Povpreèja po študijskih programih
|
|
###DODAJANJE POVPREÈIJ PO ŠTUDIJSKIH PROGRAMIH
|
|
############################################################################
|
|
program.1stopnja <- aggregate(data.predmeti[vars.predmet.vars],
|
|
by=data.predmeti[c("student.program.sifra","student.program.ime")], FUN=mean, na.rm=TRUE)
|
|
program.1stopnja<- cbind(program.1stopnja, predmet.ocena.SKUPAJ=rowMeans(program.1stopnja[vars.predmet.vars], na.rm=TRUE))
|
|
stopnja_program1<-stopnja_program
|
|
colnames(stopnja_program1)[4] <- "N_anket"
|
|
rownames(stopnja_program1) <- stopnja_program1[rownames(stopnja_program1),"student.program.ime"]
|
|
|
|
if (nrow(stopnja_program1) > 0) {
|
|
program_BD_pred.skupaj <- merge(stopnja_program1, program.1stopnja,
|
|
by.x=c("program.studentov","program.studentov.ime"),
|
|
by.y=c("student.program.sifra","student.program.ime"), all=TRUE, sort=FALSE)
|
|
} else {program_BD_pred.skupaj <- stopnja_program1}
|
|
|
|
if (nrow(program_BD_pred.skupaj) > 0 & any(program_BD_pred.skupaj$STOPNJA==1, na.rm=TRUE)) {
|
|
program_BD_pred.skupaj<-subset(program_BD_pred.skupaj, STOPNJA==1)
|
|
program_BD_pred.skupaj<- program_BD_pred.skupaj[, !(colnames(program_BD_pred.skupaj) %in% c("STOPNJA"))]
|
|
# if (gregexpr(pattern = "Magistrski",program_BD_pred.skupaj$program.studentov.ime)[[1]][1] == 1){
|
|
# program_BD_pred.skupaj<-program_BD_pred.skupaj[- grep("Magistrski", program_BD_pred.skupaj$program.studentov.ime),]
|
|
|
|
#}
|
|
st.programov <- length(program_BD_pred.skupaj$program.studentov.ime)
|
|
if (sortByAverage) {
|
|
rownames(program_BD_pred.skupaj) <-
|
|
formatProgImena(program_BD_pred.skupaj$program.studentov.ime, program_BD_pred.skupaj$predmet.ocena.SKUPAJ)
|
|
program_BD_pred.skupaj <-
|
|
program_BD_pred.skupaj[order(program_BD_pred.skupaj$predmet.ocena.SKUPAJ, decreasing=TRUE),
|
|
!(colnames(program_BD_pred.skupaj) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
} else { # sort by name
|
|
rownames(program_BD_pred.skupaj) <-
|
|
program_BD_pred.skupaj$program.studentov.ime
|
|
program_BD_pred.skupaj <-
|
|
program_BD_pred.skupaj[order(as.character(sapply(rownames(program_BD_pred.skupaj),titula.rm)), decreasing=FALSE),
|
|
!(colnames(program_BD_pred.skupaj) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
}
|
|
program_BD_pred.skupaj <-
|
|
rbind(program_BD_pred.skupaj, c(colMeans(program_BD_pred.skupaj[1:1]),
|
|
colMeans(program_BD_pred.skupaj[2:ncol(program_BD_pred.skupaj)], na.rm=TRUE)))
|
|
program_BD_pred.skupaj <-
|
|
formatNA(program_BD_pred.skupaj, decimalke=c(0,as.numeric(decimalno_mestoPRED),decimalkeIzvSkupaj),
|
|
pobarvanka=c("NE", as.character(pobarvanka.PRED),pobarvankaIzvSkupaj), na.repl=".")
|
|
rownames(program_BD_pred.skupaj )[nrow(program_BD_pred.skupaj)] <-
|
|
c(paste0("\\hline \\textbf{Povpreèje ", fakulteta," (",st.programov," programov)}"))
|
|
colnames(program_BD_pred.skupaj ) <-
|
|
latex.rotate(c("Št. predmetov", Hmisc::latexTranslate(as.character(imena_stolpcevPRED)), "\\textbf{Skupaj}"))
|
|
program_BD_pred.skupaj.tex <- capture.output(Hmisc::latex(program_BD_pred.skupaj,
|
|
caption="Povpreèja \\textbf{predmetov} po študijskih programih
|
|
(anketa PRED izpitom), sortirana po \\textbf{Skupaj}",
|
|
rowlabel="",
|
|
file="",
|
|
where="H",
|
|
rowlabel.just="A{10cm}",
|
|
multicol=FALSE,
|
|
longtable=FALSE,
|
|
insert.bottom=paste("{\\footnotesize \\textit{}}"),
|
|
col.just=c("c|",rep_len("c", length(imena_stolpcevPRED)),"|c")))
|
|
} else {
|
|
program_BD_pred.skupaj.tex <- "Ni ocen."
|
|
}
|
|
|
|
|
|
|
|
|
|
#PROGRAMI: ANKETA PO IZPITU
|
|
stopnja_program.PO<- merge(povprecja.predmeti[c("predmet.sifra","STOPNJA")],
|
|
povprecja.predmeti.programi[c("predmet.sifra",paste0(vars.predmet$cont$vars,"_mean"),
|
|
paste0(vars.predmet$krediti$vars,"_mean"),"program.studentov",
|
|
"program.studentov.ime","N_anket","N_anket_po_izpitu" )],
|
|
by="predmet.sifra", sort=FALSE)
|
|
stopnja_program.PO <-
|
|
stopnja_program.PO[stopnja_program.PO$N_anket_po_izpitu >=minEnot,
|
|
c("predmet.sifra","program.studentov","program.studentov.ime","STOPNJA")]
|
|
|
|
if (any(!is.na(stopnja_program.PO))){
|
|
stopnja_program.PO <-
|
|
aggregate(stopnja_program.PO$predmet.sifra,
|
|
by=stopnja_program.PO[c("program.studentov","program.studentov.ime","STOPNJA")], function(x) length(unique(x)))
|
|
stopnja_program.PO.pred<-merge(test.po, stopnja_program.PO, by.x="student.program.ime",by.y="program.studentov.ime", all=TRUE)
|
|
} else {stopnja_program.PO <- stopnja_program.PO}
|
|
|
|
program.1stopnja.PO <-
|
|
aggregate(data.predmeti[c(vars.predmet$cont$po,"predmet.ocena.krediti")],
|
|
by=data.predmeti[c("student.program.sifra","student.program.ime")], FUN=mean, na.rm=TRUE)
|
|
program.1stopnja.PO <-
|
|
cbind(program.1stopnja.PO, predmet.ocena.SKUPAJ=rowMeans(program.1stopnja.PO[vars.predmet$cont$po[-1]], na.rm=TRUE))
|
|
stopnja_program.PO1<-stopnja_program.PO
|
|
if (!is.null(stopnja_program.PO1)) {
|
|
colnames(stopnja_program.PO1)[4] <- "N_anket"
|
|
rownames(program.1stopnja.PO) <- program.1stopnja.PO[rownames(program.1stopnja.PO),"student.program.ime"]
|
|
}
|
|
|
|
if (nrow(program.1stopnja.PO) > 0 & !is.null(stopnja_program.PO1)) {
|
|
program_BD_po.skupaj <- merge(stopnja_program.PO1, program.1stopnja.PO,
|
|
by.x=c("program.studentov","program.studentov.ime"),
|
|
by.y=c("student.program.sifra","student.program.ime"), all=TRUE, sort=FALSE)
|
|
}
|
|
|
|
if (nrow(program_BD_po.skupaj) > 0 & any(program_BD_po.skupaj$STOPNJA==1, na.rm=TRUE)) {
|
|
program_BD_po.skupaj<-subset(program_BD_po.skupaj, STOPNJA==1)
|
|
program_BD_po.skupaj<- program_BD_po.skupaj[, !(colnames(program_BD_po.skupaj) %in% c("STOPNJA"))]
|
|
program_BD_po.skupaj<- program_BD_po.skupaj[c(1,2,3,4,5,6,7,9,8)]
|
|
#if (gregexpr(pattern = "Magistrski",program_BD_po.skupaj$program.studentov.ime)[[1]][1] == 1){
|
|
# program_BD_po.skupaj<-program_BD_po.skupaj[- grep("Magistrski", program_BD_po.skupaj$program.studentov.ime),]
|
|
|
|
#}
|
|
st.programov1 <- length(program_BD_po.skupaj$program.studentov.ime)
|
|
if (sortByAverage) {
|
|
rownames(program_BD_po.skupaj) <-
|
|
formatProgImena(program_BD_po.skupaj$program.studentov.ime, program_BD_po.skupaj$predmet.ocena.SKUPAJ)
|
|
program_BD_po.skupaj <-
|
|
program_BD_po.skupaj[order(program_BD_po.skupaj$predmet.ocena.SKUPAJ, decreasing=TRUE),
|
|
!(colnames(program_BD_po.skupaj) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
} else { # sort by name
|
|
rownames(program_BD_po.skupaj) <- program_BD_po.skupaj$program.studentov.ime
|
|
program_BD_po.skupaj <-
|
|
program_BD_po.skupaj[order(as.character(sapply(rownames(program_BD_po.skupaj))), decreasing=FALSE),
|
|
!(colnames(program_BD_po.skupaj) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
}
|
|
program_BD_po.skupaj <-
|
|
rbind(program_BD_po.skupaj, c(colMeans(program_BD_po.skupaj[1:1]),
|
|
colMeans(program_BD_po.skupaj[2:ncol(program_BD_po.skupaj)], na.rm=TRUE)))
|
|
program_BD_po.skupaj <-
|
|
formatNA(program_BD_po.skupaj,
|
|
decimalke=c(0,as.numeric(decimalno_mestoPO),decimalkeIzvSkupaj,as.numeric(vars.predmet$krediti$decimalke)),
|
|
pobarvanka=c("NE", as.character(pobarvanka.PO),pobarvankaIzvSkupaj,vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
rownames(program_BD_po.skupaj )[nrow(program_BD_po.skupaj)] <-
|
|
c(paste0("\\hline \\textbf{Povpreèje ", fakulteta," (",st.programov1," programov)}"))
|
|
colnames(program_BD_po.skupaj) <-
|
|
latex.rotate(c("Št. predmetov", Hmisc::latexTranslate(as.character(imena_stolpcevPO)), "\\textbf{Skupaj}",
|
|
as.character(vars.predmet$krediti$ime.kratko)))
|
|
program_BD_po.skupaj<-program_BD_po.skupaj[c(1,3,4,5,6,2,7)]
|
|
program_BD_po.skupaj.tex <- capture.output(Hmisc::latex(program_BD_po.skupaj,
|
|
caption="Povpreèja \\textbf{predmetov} po študijskih programih
|
|
(anketa PO izpitu), sortirana po \\textbf{Skupaj}",
|
|
rowlabel="",
|
|
file="",
|
|
where="H",
|
|
rowlabel.just="A{13cm}",
|
|
multicol=FALSE,
|
|
longtable=FALSE,
|
|
insert.bottom=paste("{\\footnotesize \\textit{* {\\color{Orange}\\textbf{Oranžno}}
|
|
so oznaèena {\\color{Orange}\\textbf{opozorilna}} odstopanja
|
|
({\\color{Orange}\\textbf{2.4-2.6}}) in
|
|
({\\color{Orange}\\textbf{3.4-3.6}}),
|
|
{\\color{BrickRed}\\textbf{rdeèe}} pa
|
|
{\\color{BrickRed}\\textbf{kritièna}}
|
|
odstopanja (pod {\\color{BrickRed}\\textbf{2.4}})
|
|
in (nad {\\color{BrickRed}\\textbf{3.6}}). }}"),
|
|
col.just=c("c|",rep_len("c", length(imena_stolpcevPO[-1])),"|c","|c","c")))
|
|
} else {
|
|
program_BD_po.skupaj.tex <- "Ni ocen."
|
|
}
|
|
|
|
|
|
|
|
# ANKETA PO IZPITU SORITRANA PO USTREZNOSTI KREDITNIH TOÈK
|
|
stopnja_program.PO.krediti <- merge(povprecja.predmeti[c("predmet.sifra","STOPNJA")],
|
|
povprecja.predmeti.programi[c("predmet.sifra",paste0(vars.predmet$cont$vars,"_mean"),
|
|
paste0(vars.predmet$krediti$vars,"_mean"),"program.studentov",
|
|
"program.studentov.ime","N_anket","N_anket_po_izpitu" )],
|
|
by="predmet.sifra", sort=FALSE)
|
|
stopnja_program.PO.krediti<-stopnja_program.PO.krediti[stopnja_program.PO.krediti$N_anket_po_izpitu >=minEnot,
|
|
c("predmet.sifra","program.studentov","program.studentov.ime","STOPNJA")]
|
|
if (nrow(stopnja_program.PO.krediti) > 0) {
|
|
stopnja_program.PO.krediti<-aggregate(stopnja_program.PO.krediti$predmet.sifra,
|
|
by=stopnja_program.PO.krediti[c("program.studentov","program.studentov.ime","STOPNJA")], function(x) length(unique(x)))
|
|
stopnja_program.PO.krediti.pred<-merge(test.po, stopnja_program.PO.krediti,
|
|
by.x="student.program.ime",by.y="program.studentov.ime", all=TRUE)
|
|
} else {stopnja_program.PO.krediti.pred <- stopnja_program.PO.krediti}
|
|
|
|
program.1stopnja.PO.krediti <-
|
|
aggregate(data.predmeti[c(vars.predmet$cont$po,"predmet.ocena.krediti")],
|
|
by=data.predmeti[c("student.program.sifra","student.program.ime")], FUN=mean, na.rm=TRUE)
|
|
program.1stopnja.PO.krediti <-
|
|
cbind(program.1stopnja.PO.krediti, predmet.ocena.SKUPAJ=rowMeans(program.1stopnja.PO.krediti[vars.predmet$cont$po[-1]], na.rm=TRUE))
|
|
stopnja_program.PO.krediti1 <- stopnja_program.PO.krediti
|
|
colnames(stopnja_program.PO.krediti1)[4] <- "N_anket"
|
|
rownames(program.1stopnja.PO.krediti) <- program.1stopnja.PO.krediti[rownames(program.1stopnja.PO.krediti),"student.program.ime"]
|
|
|
|
if (nrow(program.1stopnja.PO.krediti) > 0 & nrow(stopnja_program.PO.krediti1) > 0) {
|
|
program_BD_po.skupaj.krediti <- merge(stopnja_program.PO.krediti1, program.1stopnja.PO.krediti,
|
|
by.x=c("program.studentov","program.studentov.ime"),
|
|
by.y=c("student.program.sifra","student.program.ime"), all=TRUE, sort=FALSE)
|
|
|
|
}
|
|
if (nrow(program_BD_po.skupaj.krediti) > 0 & any(program_BD_po.skupaj.krediti$STOPNJA==1, na.rm=TRUE)) {
|
|
program_BD_po.skupaj.krediti<-subset(program_BD_po.skupaj.krediti, STOPNJA==1)
|
|
program_BD_po.skupaj.krediti<- program_BD_po.skupaj.krediti[, !(colnames(program_BD_po.skupaj.krediti) %in% c("STOPNJA"))]
|
|
program_BD_po.skupaj.krediti<- program_BD_po.skupaj.krediti[c(1,2,3,4,5,6,7,9,8)]
|
|
#if (gregexpr(pattern = "Magistrski",program_BD_po.skupaj.krediti$program.studentov.ime)[[1]][1] == 1){
|
|
# program_BD_po.skupaj.krediti<-program_BD_po.skupaj.krediti[- grep("Magistrski", program_BD_po.skupaj.krediti$program.studentov.ime),]
|
|
|
|
#}
|
|
st.programov1<-length(program_BD_po.skupaj.krediti$program.studentov.ime)
|
|
if (sortByAverage) {
|
|
rownames(program_BD_po.skupaj.krediti) <-
|
|
formatProgImena(program_BD_po.skupaj.krediti$program.studentov.ime, program_BD_po.skupaj.krediti$predmet.ocena.krediti)
|
|
program_BD_po.skupaj.krediti <-
|
|
program_BD_po.skupaj.krediti[order(program_BD_po.skupaj.krediti$predmet.ocena.krediti, decreasing=TRUE),
|
|
!(colnames(program_BD_po.skupaj.krediti) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
} else { # sort by name
|
|
rownames(program_BD_po.skupaj.krediti) <- program_BD_po.skupaj.krediti$program.studentov.ime
|
|
program_BD_po.skupaj.krediti <-
|
|
program_BD_po.skupaj.krediti[order(as.character(sapply(rownames(program_BD_po.skupaj.krediti))), decreasing=FALSE),
|
|
!(colnames(program_BD_po.skupaj.krediti) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
}
|
|
program_BD_po.skupaj.krediti <-
|
|
rbind(program_BD_po.skupaj.krediti, c(colMeans(program_BD_po.skupaj.krediti[1:1]),
|
|
colMeans(program_BD_po.skupaj.krediti[2:ncol(program_BD_po.skupaj.krediti)], na.rm=TRUE)))
|
|
program_BD_po.skupaj.krediti <-
|
|
formatNA(program_BD_po.skupaj.krediti,
|
|
decimalke=c(0,as.numeric(decimalno_mestoPO),decimalkeIzvSkupaj,as.numeric(vars.predmet$krediti$decimalke)),
|
|
pobarvanka=c("NE", as.character(pobarvanka.PO),pobarvankaIzvSkupaj,vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
rownames(program_BD_po.skupaj.krediti )[nrow(program_BD_po.skupaj.krediti)] <-
|
|
c(paste0("\\hline \\textbf{Povpreèje ", fakulteta," (",st.programov1," programov)}"))
|
|
colnames(program_BD_po.skupaj.krediti ) <-
|
|
latex.rotate(c("Št. predmetov", Hmisc::latexTranslate(as.character(imena_stolpcevPO)), "\\textbf{Skupaj}",
|
|
as.character(vars.predmet$krediti$ime.kratko)))
|
|
program_BD_po.skupaj.krediti <- program_BD_po.skupaj.krediti[c(1,3,4,5,6,2,7)]
|
|
program_BD_po.skupaj.krediti.tex <- capture.output(Hmisc::latex(program_BD_po.skupaj.krediti,
|
|
caption="Povpreèja \\textbf{predmetov} po študijskih programih
|
|
(anketa PO izpitu), sortirana po \\textbf{Ustreznost KT}",
|
|
rowlabel="",
|
|
file="",
|
|
where="H",
|
|
rowlabel.just="A{13cm}",
|
|
multicol=FALSE,
|
|
longtable=FALSE,
|
|
insert.bottom=paste("{\\footnotesize \\textit{*
|
|
{\\color{Orange}\\textbf{Oranžno}}
|
|
so oznaèena {\\color{Orange}\\textbf{opozorilna}}
|
|
odstopanja ({\\color{Orange}\\textbf{2.4-2.6}}) in
|
|
({\\color{Orange}\\textbf{3.4-3.6}}),
|
|
{\\color{BrickRed}\\textbf{rdeèe}} pa
|
|
{\\color{BrickRed}\\textbf{kritièna}}
|
|
odstopanja (pod {\\color{BrickRed}\\textbf{2.4}})
|
|
in (nad {\\color{BrickRed}\\textbf{3.6}}). }}"),
|
|
col.just=c("c|",rep_len("c", length(imena_stolpcevPO[-1])),"|c","|c","c")))
|
|
} else {
|
|
program_BD_po.skupaj.krediti.tex <- "Ni ocen."
|
|
}
|
|
## //program_BD_po.skupaj.krediti.tex// ##
|
|
|
|
|
|
|
|
#####################
|
|
# PODIPLOMSKI ŠTUDIJ
|
|
#####################
|
|
#FAKULTETA: IZPIS PROGRAMOV ZA DRUGO STOPNJO
|
|
#PODIPLOMSKI PROGRAM
|
|
stopnja_program_podipl <- merge(povprecja.predmeti[c("predmet.sifra","STOPNJA")],
|
|
povprecja.predmeti.programi[c("predmet.sifra",paste0(vars.predmet$cont$vars,"_mean"),
|
|
paste0(vars.predmet$krediti$vars,"_mean"),"program.studentov",
|
|
"program.studentov.ime","N_anket","N_anket_po_izpitu" )],
|
|
by="predmet.sifra", sort=FALSE)
|
|
stopnja_program_podipl<-stopnja_program_podipl[stopnja_program_podipl$N_anket >=minEnot,
|
|
c("predmet.sifra","program.studentov","program.studentov.ime","STOPNJA")]
|
|
if (nrow(stopnja_program_podipl) >0) {
|
|
stopnja_program_podipl<-aggregate(stopnja_program_podipl$predmet.sifra,
|
|
by=stopnja_program_podipl[c("program.studentov","program.studentov.ime","STOPNJA")], function(x) length(unique(x)))
|
|
stopnja_program_podipl.pred<-merge(test.pred, stopnja_program_podipl,
|
|
by.x="student.program.ime",by.y="program.studentov.ime", all=TRUE)
|
|
} else {stopnja_program_podipl <- stopnja_program_podipl}
|
|
|
|
|
|
#ANKETA PRED IZPITOM
|
|
program.2stopnja<-aggregate(data.predmeti[vars.predmet.vars],
|
|
by=data.predmeti[c("student.program.sifra","student.program.ime")], FUN=mean, na.rm=TRUE)
|
|
program.2stopnja<- cbind(program.2stopnja, predmet.ocena.SKUPAJ=rowMeans(program.2stopnja[vars.predmet.vars], na.rm=TRUE))
|
|
stopnja_program_podipl1<-stopnja_program_podipl
|
|
colnames(stopnja_program_podipl1)[4] <- "N_anket"
|
|
rownames(stopnja_program_podipl1) <- stopnja_program_podipl1[rownames(stopnja_program_podipl1),"student.program.ime"]
|
|
|
|
##Izloèimo Neznan program
|
|
#stopnja_program_podipl1<- stopnja_program_podipl1[!stopnja_program_podipl1$program.studentov.ime == "Neznan program", ]
|
|
|
|
if (nrow(stopnja_program_podipl1) > 0) {
|
|
program_BD_pred.podipl <- merge(stopnja_program_podipl1, program.2stopnja,
|
|
by.x=c("program.studentov","program.studentov.ime"),
|
|
by.y=c("student.program.sifra","student.program.ime"), all=TRUE, sort=FALSE)
|
|
} else {program_BD_pred.podipl <- stopnja_program_podipl1}
|
|
|
|
if (nrow(program_BD_pred.podipl) > 0 & any(program_BD_pred.podipl$STOPNJA==2, na.rm=TRUE)) {
|
|
program_BD_pred.podipl<-subset(program_BD_pred.podipl, STOPNJA==2)
|
|
program_BD_pred.podipl<- program_BD_pred.podipl[, !(colnames(program_BD_pred.podipl) %in% c("STOPNJA"))]
|
|
st.programov2<-length(program_BD_pred.podipl$program.studentov.ime)
|
|
|
|
if (sortByAverage) {
|
|
rownames(program_BD_pred.podipl) <-
|
|
formatProgImena(program_BD_pred.podipl$program.studentov.ime, program_BD_pred.podipl$predmet.ocena.SKUPAJ)
|
|
program_BD_pred.podipl <-
|
|
program_BD_pred.podipl[order(program_BD_pred.podipl$predmet.ocena.SKUPAJ, decreasing=TRUE), !(colnames(program_BD_pred.podipl) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
} else { # sort by name
|
|
rownames(program_BD_pred.podipl) <- program_BD_pred.podipl$program.studentov.ime
|
|
program_BD_pred.podipl <-
|
|
program_BD_pred.podipl[order(as.character(sapply(rownames(program_BD_pred.podipl),titula.rm)), decreasing=FALSE),
|
|
!(colnames(program_BD_pred.podipl) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
}
|
|
program_BD_pred.podipl <-
|
|
rbind(program_BD_pred.podipl, c(colMeans(program_BD_pred.podipl[1:1]),
|
|
colMeans(program_BD_pred.podipl[2:ncol(program_BD_pred.podipl)], na.rm=TRUE)))
|
|
program_BD_pred.podipl <-
|
|
formatNA(program_BD_pred.podipl, decimalke=c(0,as.numeric(decimalno_mestoPRED),decimalkeIzvSkupaj),
|
|
pobarvanka=c("NE", as.character(pobarvanka.PRED),pobarvankaIzvSkupaj), na.repl=".")
|
|
rownames(program_BD_pred.podipl )[nrow(program_BD_pred.podipl)] <-
|
|
c(paste0("\\hline \\textbf{Povpreèje ", fakulteta," (",st.programov2," programov)}"))
|
|
colnames(program_BD_pred.podipl ) <-
|
|
latex.rotate(c("Št. predmetov", Hmisc::latexTranslate(as.character(imena_stolpcevPRED)), "\\textbf{Skupaj}"))
|
|
program_BD_pred.podipl.tex <- capture.output(Hmisc::latex(program_BD_pred.podipl,
|
|
caption="Povpreèja \\textbf{predmetov} po študijskih programih
|
|
(anketa PRED izpitom), sortirana po \\textbf{Skupaj}",
|
|
rowlabel="",
|
|
file="",
|
|
where="H",
|
|
rowlabel.just="A{10cm}",
|
|
multicol=FALSE,
|
|
longtable=FALSE,
|
|
insert.bottom=paste("{\\footnotesize \\textit{}}"),
|
|
col.just=c("c|",rep_len("c", length(imena_stolpcevPRED)),"|c")))
|
|
} else {
|
|
program_BD_pred.podipl.tex <- "Ni ocen."
|
|
}
|
|
###############
|
|
|
|
|
|
#ANKETA PO IZPITU
|
|
stopnja_program_podipl.PO<- merge(povprecja.predmeti[c("predmet.sifra","STOPNJA")],
|
|
povprecja.predmeti.programi[c("predmet.sifra",
|
|
paste0(vars.predmet$cont$vars,"_mean"),
|
|
paste0(vars.predmet$krediti$vars,"_mean"),
|
|
"program.studentov","program.studentov.ime",
|
|
"N_anket","N_anket_po_izpitu" )],
|
|
by="predmet.sifra", sort=FALSE)
|
|
stopnja_program_podipl.PO<-stopnja_program_podipl.PO[stopnja_program_podipl.PO$N_anket_po_izpitu >=minEnot,
|
|
c("predmet.sifra","program.studentov","program.studentov.ime","STOPNJA")]
|
|
if (any(!is.na(stopnja_program_podipl.PO))){
|
|
stopnja_program_podipl.PO<-aggregate(stopnja_program_podipl.PO$predmet.sifra,
|
|
by=stopnja_program_podipl.PO[c("program.studentov","program.studentov.ime","STOPNJA")], function(x) length(unique(x)))
|
|
stopnja_program_podipl.PO.pred<-merge(test.po, stopnja_program_podipl.PO,
|
|
by.x="student.program.ime",by.y="program.studentov.ime", all=TRUE)
|
|
} else {stopnja_program_podipl.PO <- NULL}
|
|
|
|
program.22stopnja.PO<-aggregate(data.predmeti[c(vars.predmet$cont$po,"predmet.ocena.krediti")],
|
|
by=data.predmeti[c("student.program.sifra","student.program.ime")], FUN=mean, na.rm=TRUE)
|
|
program.22stopnja.PO<-
|
|
cbind(program.22stopnja.PO, predmet.ocena.SKUPAJ=rowMeans(program.22stopnja.PO[vars.predmet$cont$po[-1]], na.rm=TRUE))
|
|
stopnja_program_podipl.PO1<-stopnja_program_podipl.PO
|
|
if (!is.null(stopnja_program_podipl.PO1)) {
|
|
colnames(stopnja_program_podipl.PO1)[4] <- "N_anket"
|
|
rownames(program.22stopnja.PO) <- program.22stopnja.PO[rownames(program.22stopnja.PO),"student.program.ime"]
|
|
}
|
|
|
|
if (nrow(program.22stopnja.PO) > 0 & !is.null(stopnja_program_podipl.PO1)) {
|
|
program_BD_po.podipl <- merge(stopnja_program_podipl.PO1, program.22stopnja.PO,
|
|
by.x=c("program.studentov","program.studentov.ime"),
|
|
by.y=c("student.program.sifra","student.program.ime"), all=TRUE, sort=FALSE)
|
|
}
|
|
|
|
if (nrow(program_BD_po.podipl) > 0 & any(program_BD_po.podipl$STOPNJA==2, na.rm=TRUE)) {
|
|
program_BD_po.podipl<-subset(program_BD_po.podipl, STOPNJA==2)
|
|
program_BD_po.podipl<- program_BD_po.podipl[, !(colnames(program_BD_po.podipl) %in% c("STOPNJA"))]
|
|
program_BD_po.podipl<- program_BD_po.podipl[c(1,2,3,4,5,6,7,9,8)]
|
|
st.programov3<-length(program_BD_po.podipl$program.studentov.ime)
|
|
|
|
if (sortByAverage) {
|
|
rownames(program_BD_po.podipl) <-
|
|
formatProgImena(program_BD_po.podipl$program.studentov.ime, program_BD_po.podipl$predmet.ocena.SKUPAJ)
|
|
program_BD_po.podipl <-
|
|
program_BD_po.podipl[order(program_BD_po.podipl$predmet.ocena.SKUPAJ, decreasing=TRUE), !(colnames(program_BD_po.podipl) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
} else { # sort by name
|
|
rownames(program_BD_po.podipl) <- program_BD_po.podipl$program.studentov.ime
|
|
program_BD_po.podipl <-
|
|
program_BD_po.podipl[order(as.character(sapply(rownames(program_BD_po.podipl))), decreasing=FALSE),
|
|
!(colnames(program_BD_po.podipl) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
}
|
|
program_BD_po.podipl <-
|
|
rbind(program_BD_po.podipl, c(colMeans(program_BD_po.podipl[1:1]),
|
|
colMeans(program_BD_po.podipl[2:ncol(program_BD_po.podipl)], na.rm=TRUE)))
|
|
program_BD_po.podipl <-
|
|
formatNA(program_BD_po.podipl, decimalke=c(0,as.numeric(decimalno_mestoPO),decimalkeIzvSkupaj,as.numeric(vars.predmet$krediti$decimalke)),
|
|
pobarvanka=c("NE", as.character(pobarvanka.PO),pobarvankaIzvSkupaj,vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
rownames(program_BD_po.podipl)[nrow(program_BD_po.podipl)] <-
|
|
c(paste0("\\hline \\textbf{Povpreèje ", fakulteta," (",st.programov3," programov)}"))
|
|
colnames(program_BD_po.podipl) <-
|
|
latex.rotate(c("Št. predmetov", Hmisc::latexTranslate(as.character(imena_stolpcevPO)), "\\textbf{Skupaj}",as.character(vars.predmet$krediti$ime.kratko)))
|
|
program_BD_po.podipl<-program_BD_po.podipl[c(1,3,4,5,6,2,7)]
|
|
program_BD_po.podipl.tex <- capture.output(Hmisc::latex(program_BD_po.podipl,
|
|
caption="Povpreèja \\textbf{predmetov} po študijskih programih
|
|
(anketa PO izpitu), sortirana po \\textbf{Skupaj}",
|
|
rowlabel="",
|
|
file="",
|
|
where="H",
|
|
rowlabel.just="A{13cm}",
|
|
multicol=FALSE,
|
|
longtable=FALSE,
|
|
insert.bottom=paste("{\\footnotesize \\textit{*
|
|
{\\color{Orange}\\textbf{Oranžno}}
|
|
so oznaèena {\\color{Orange}\\textbf{opozorilna}}
|
|
odstopanja ({\\color{Orange}\\textbf{2.4-2.6}}) in
|
|
({\\color{Orange}\\textbf{3.4-3.6}}),
|
|
{\\color{BrickRed}\\textbf{rdeèe}} pa
|
|
{\\color{BrickRed}\\textbf{kritièna}} odstopanja
|
|
(pod {\\color{BrickRed}\\textbf{2.4}}) in
|
|
(nad {\\color{BrickRed}\\textbf{3.6}}).}}"),
|
|
col.just=c("c|",rep_len("c", length(imena_stolpcevPO[-1])),"|c","|c","c")))
|
|
} else {
|
|
program_BD_po.podipl.tex <- "Ni ocen."
|
|
}
|
|
|
|
|
|
|
|
############################
|
|
#ANKETA PO IZPITU SORTIRANA PO USTRETNOSTI KREDITNIH TOÈK
|
|
stopnja_program_podipl.PO.krediti<- merge(povprecja.predmeti[c("predmet.sifra","STOPNJA")],
|
|
povprecja.predmeti.programi[c("predmet.sifra",paste0(vars.predmet$cont$vars,"_mean"),
|
|
paste0(vars.predmet$krediti$vars,"_mean"),
|
|
"program.studentov","program.studentov.ime",
|
|
"N_anket","N_anket_po_izpitu" )],
|
|
by="predmet.sifra", sort=FALSE)
|
|
stopnja_program_podipl.PO.krediti <-
|
|
stopnja_program_podipl.PO.krediti[stopnja_program_podipl.PO.krediti$N_anket_po_izpitu >=minEnot,
|
|
c("predmet.sifra","program.studentov","program.studentov.ime","STOPNJA")]
|
|
|
|
if (nrow(stopnja_program_podipl.PO.krediti) > 0) {
|
|
stopnja_program_podipl.PO.krediti <-
|
|
aggregate(stopnja_program_podipl.PO.krediti$predmet.sifra,
|
|
by=stopnja_program_podipl.PO.krediti[c("program.studentov","program.studentov.ime","STOPNJA")], function(x) length(unique(x)))
|
|
stopnja_program_podipl.PO.krediti.pred <- merge(test.po, stopnja_program_podipl.PO.krediti,
|
|
by.x="student.program.ime",by.y="program.studentov.ime", all=TRUE)
|
|
}
|
|
|
|
program.22stopnja.PO.krediti <- aggregate(data.predmeti[c(vars.predmet$cont$po,"predmet.ocena.krediti")],
|
|
by=data.predmeti[c("student.program.sifra","student.program.ime")], FUN=mean, na.rm=TRUE)
|
|
program.22stopnja.PO.krediti <-
|
|
cbind(program.22stopnja.PO.krediti, predmet.ocena.SKUPAJ=rowMeans(program.22stopnja.PO.krediti[vars.predmet$cont$po[-1]], na.rm=TRUE))
|
|
stopnja_program_podipl.PO.krediti1<-stopnja_program_podipl.PO.krediti
|
|
|
|
|
|
colnames(stopnja_program_podipl.PO.krediti1)[4] <- "N_anket"
|
|
rownames(program.22stopnja.PO.krediti) <- program.22stopnja.PO.krediti[rownames(program.22stopnja.PO.krediti),"student.program.ime"]
|
|
|
|
if (nrow(program.22stopnja.PO.krediti) > 0 & nrow(stopnja_program_podipl.PO.krediti1) > 0) {
|
|
program_BD_po.podipl.krediti <- merge(stopnja_program_podipl.PO.krediti1, program.22stopnja.PO.krediti,
|
|
by.x=c("program.studentov","program.studentov.ime"),
|
|
by.y=c("student.program.sifra","student.program.ime"), all=TRUE, sort=FALSE)
|
|
}
|
|
if (nrow(program_BD_po.podipl.krediti) > 0 & any(program_BD_po.podipl.krediti$STOPNJA==2, na.rm=TRUE)) {
|
|
program_BD_po.podipl.krediti<-subset(program_BD_po.podipl.krediti, STOPNJA==2)
|
|
program_BD_po.podipl.krediti<- program_BD_po.podipl.krediti[, !(colnames(program_BD_po.podipl.krediti) %in% c("STOPNJA"))]
|
|
program_BD_po.podipl.krediti<- program_BD_po.podipl.krediti[c(1,2,3,4,5,6,7,9,8)]
|
|
st.programov3<-length(program_BD_po.podipl.krediti$program.studentov.ime)
|
|
|
|
if (sortByAverage) {
|
|
rownames(program_BD_po.podipl.krediti) <-
|
|
formatProgImena(program_BD_po.podipl.krediti$program.studentov.ime, program_BD_po.podipl.krediti$predmet.ocena.krediti)
|
|
program_BD_po.podipl.krediti <-
|
|
program_BD_po.podipl.krediti[order(program_BD_po.podipl.krediti$predmet.ocena.krediti, decreasing=TRUE),
|
|
!(colnames(program_BD_po.podipl.krediti) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
} else { # sort by name
|
|
rownames(program_BD_po.podipl.krediti) <- program_BD_po.podipl.krediti$program.studentov.ime
|
|
program_BD_po.podipl.krediti <-
|
|
program_BD_po.podipl.krediti[order(as.character(sapply(rownames(program_BD_po.podipl.krediti))), decreasing=FALSE),
|
|
!(colnames(program_BD_po.podipl.krediti) %in% c("program.studentov", "program.studentov.ime"))] # sort and drop unneeded columns
|
|
}
|
|
program_BD_po.podipl.krediti <-
|
|
rbind(program_BD_po.podipl.krediti, c(colMeans(program_BD_po.podipl.krediti[1:1]),
|
|
colMeans(program_BD_po.podipl.krediti[2:ncol(program_BD_po.podipl.krediti)], na.rm=TRUE)))
|
|
program_BD_po.podipl.krediti <-
|
|
formatNA(program_BD_po.podipl.krediti,
|
|
decimalke=c(0,as.numeric(decimalno_mestoPO),decimalkeIzvSkupaj,as.numeric(vars.predmet$krediti$decimalke)),
|
|
pobarvanka=c("NE", as.character(pobarvanka.PO),pobarvankaIzvSkupaj,vars.predmet$krediti$pobarvanka), na.repl=".")
|
|
rownames(program_BD_po.podipl.krediti )[nrow(program_BD_po.podipl.krediti)] <-
|
|
c(paste0("\\hline \\textbf{Povpreèje ", fakulteta," (",st.programov3," programov)}"))
|
|
colnames(program_BD_po.podipl.krediti ) <-
|
|
latex.rotate(c("Št. predmetov", Hmisc::latexTranslate(as.character(imena_stolpcevPO)), "\\textbf{Skupaj}",
|
|
as.character(vars.predmet$krediti$ime.kratko)))
|
|
program_BD_po.podipl.krediti<-program_BD_po.podipl.krediti[c(1,3,4,5,6,2,7)]
|
|
program_BD_po.podipl.krediti.tex <- capture.output(Hmisc::latex(program_BD_po.podipl.krediti,
|
|
caption="Povpreèja \\textbf{predmetov} po študijskih programih
|
|
(anketa PO izpitu), sortirana po \\textbf{Ustreznost KT}",
|
|
rowlabel="",
|
|
file="",
|
|
where="H",
|
|
rowlabel.just="A{13cm}",
|
|
multicol=FALSE,
|
|
longtable=FALSE,
|
|
insert.bottom=paste("{\\footnotesize \\textit{*
|
|
{\\color{Orange}\\textbf{Oranžno}}
|
|
so oznaèena {\\color{Orange}\\textbf{opozorilna}}
|
|
odstopanja ({\\color{Orange}\\textbf{2.4-2.6}}) in
|
|
({\\color{Orange}\\textbf{3.4-3.6}}),
|
|
{\\color{BrickRed}\\textbf{rdeèe}} pa
|
|
{\\color{BrickRed}\\textbf{kritièna}}
|
|
odstopanja (pod {\\color{BrickRed}\\textbf{2.4}})
|
|
in (nad {\\color{BrickRed}\\textbf{3.6}}).}}"),
|
|
col.just=c("c|",rep_len("c", length(imena_stolpcevPO[-1])),"|c","|c","c")))
|
|
} else {
|
|
program_BD_po.podipl.krediti.tex <- "Ni ocen."
|
|
}
|
|
|
|
#####################################
|
|
|
|
#######
|
|
# IPP
|
|
#######
|
|
###IZPIS ZA IZVAJALCE PRI PREDMETIH (IPP) PRVA STOPNJA
|
|
|
|
if (nrow(izv.predmet) > 0) {
|
|
stopnja_izvajalec.skupaj <- merge(proggIZ.tmp, progMeanIzv.fak1,
|
|
by.x=c("program.studentov", "program.studentov.ime"),
|
|
by.y=c("student.program.sifra","student.program.ime"), all=TRUE, sort=FALSE)
|
|
stopnja_izvajalec.skupaj <-
|
|
stopnja_izvajalec.skupaj[c("x","program.studentov.ime","program.studentov",
|
|
paste0(vars.izvajalec$cont$vars),"izvajalec.ocena.SKUPAJ")]
|
|
stopnja_izvajalec.skupaj <-
|
|
merge(stopnja_izvajalec.skupaj[c("x","program.studentov.ime","program.studentov",
|
|
paste0(vars.izvajalec$cont$vars),"izvajalec.ocena.SKUPAJ")],
|
|
stopnja_program[c("program.studentov.ime", "STOPNJA")],
|
|
by="program.studentov.ime", sort=FALSE)
|
|
|
|
program_dodiplomski_studij <- stopnja_izvajalec.skupaj
|
|
stopnja_izvajalec.skupaj <- subset(stopnja_izvajalec.skupaj, STOPNJA==1)
|
|
stopnja_izvajalec.skupaj <- stopnja_izvajalec.skupaj[, !(colnames(stopnja_izvajalec.skupaj) %in% c("STOPNJA"))]
|
|
stopnja_izvajalec.skupaj <-
|
|
stopnja_izvajalec.skupaj[c("x","program.studentov.ime","program.studentov",paste0(vars.izvajalec$cont$vars),"izvajalec.ocena.SKUPAJ")]
|
|
#if (gregexpr(pattern = "Magistrski",stopnja_izvajalec.skupaj$program.studentov.ime)[[1]][1] == 1){
|
|
# stopnja_izvajalec.skupaj<-stopnja_izvajalec.skupaj[- grep("Magistrski", stopnja_izvajalec.skupaj$program.studentov.ime),]
|
|
|
|
# }
|
|
st.programov4<-length(stopnja_izvajalec.skupaj$program.studentov.ime)
|
|
} else {program_dodiplomski_studij <- NULL
|
|
program_dodiplomski_studij$STOPNJA <- NULL}
|
|
|
|
if (nrow(izv.predmet) > 0 & any(program_dodiplomski_studij$STOPNJA==1, na.rm=TRUE)) {
|
|
|
|
if (sortByAverage) {
|
|
rownames(stopnja_izvajalec.skupaj) <-
|
|
formatProgImena(stopnja_izvajalec.skupaj$program.studentov.ime, stopnja_izvajalec.skupaj$izvajalec.ocena.SKUPAJ)
|
|
stopnja_izvajalec.skupaj <-
|
|
stopnja_izvajalec.skupaj[order(stopnja_izvajalec.skupaj$izvajalec.ocena.SKUPAJ, decreasing=TRUE),
|
|
!(colnames(stopnja_izvajalec.skupaj) %in% c("program.studentov.ime", "program.studentov"))] # sort and drop unneeded columns
|
|
|
|
} else { # sort by name
|
|
rownames(stopnja_izvajalec.skupaj) <- stopnja_izvajalec.skupaj$program.studentov.ime
|
|
stopnja_izvajalec.skupaj <-
|
|
stopnja_izvajalec.skupaj[order(as.character(sapply(rownames(stopnja_izvajalec.skupaj), titula.rm)), decreasing=FALSE),
|
|
!(colnames(stopnja_izvajalec.skupaj) %in% c("program.studentov.ime", "program.studentov"))] # sort and drop unneeded columns
|
|
}
|
|
stopnja_izvajalec.skupaj <-
|
|
rbind(stopnja_izvajalec.skupaj, c(colMeans(stopnja_izvajalec.skupaj[1:1]),
|
|
colMeans(stopnja_izvajalec.skupaj[2:ncol(stopnja_izvajalec.skupaj)], na.rm=TRUE)))
|
|
stopnja_izvajalec.skupaj <-
|
|
formatNA(stopnja_izvajalec.skupaj, decimalke=c(0,as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj),
|
|
pobarvanka=c("NE", as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
rownames(stopnja_izvajalec.skupaj )[nrow(stopnja_izvajalec.skupaj)] <-
|
|
c(paste0("\\hline \\textbf{Povpreèje ", fakulteta," (",st.programov4," programov)}"))
|
|
colnames(stopnja_izvajalec.skupaj ) <-
|
|
latex.rotate(c("Št. IPP", Hmisc::latexTranslate(as.character(vars.izvajalec$cont$ime.kratko)), "\\textbf{Skupaj}"))
|
|
stopnja_izvajalec.skupaj.tex <- capture.output(Hmisc::latex(stopnja_izvajalec.skupaj,
|
|
caption="Povpreèja \\textbf{izvajalcev pri predmetih}
|
|
po študijskih programih (anketa PRED izpitom),
|
|
sortirana po \\textbf{Skupaj}",
|
|
rowlabel="",
|
|
file="",
|
|
where="H",
|
|
rowlabel.just="A{12cm}",
|
|
multicol=FALSE,
|
|
longtable=TRUE,
|
|
lines.page=1000,
|
|
insert.bottom=paste("{\\footnotesize \\textit{**
|
|
»Št. IPP« - število vseh
|
|
izvajalcev pri predmetih na
|
|
doloèenem programu.}}"),
|
|
col.just=c("c|",rep_len("c", length(vars.izvajalec$cont$vars)),"|c")))
|
|
} else {
|
|
stopnja_izvajalec.skupaj.tex <- "Ni ocen."
|
|
}
|
|
|
|
## //IZPIS ZA IZVAJALCE PRI PREDMETIH (IPP) PRVA STOPNJA// ##
|
|
|
|
|
|
|
|
###IZPIS ZA IZVAJALCE PRI PREDMETIH (IPP) DRUGA STOPNJA###
|
|
|
|
if (nrow(izv.predmet) > 0) {
|
|
stopnja_izvajalec.podipl <- merge(proggIZ.tmp, progMeanIzv.fak1,by.x=c("program.studentov", "program.studentov.ime"),
|
|
by.y=c("student.program.sifra","student.program.ime"), all=TRUE, sort=FALSE)
|
|
stopnja_izvajalec.podipl <-
|
|
stopnja_izvajalec.podipl[c("x","program.studentov.ime","program.studentov",paste0(vars.izvajalec$cont$vars),"izvajalec.ocena.SKUPAJ")]
|
|
stopnja_izvajalec.podipl <-
|
|
merge(stopnja_izvajalec.podipl[c("x","program.studentov.ime","program.studentov",
|
|
paste0(vars.izvajalec$cont$vars),"izvajalec.ocena.SKUPAJ")],
|
|
stopnja_program[c("program.studentov.ime", "STOPNJA")], by="program.studentov.ime", sort=FALSE)
|
|
|
|
program_podiplomski_studij <- stopnja_izvajalec.podipl
|
|
stopnja_izvajalec.podipl <- subset(stopnja_izvajalec.podipl, STOPNJA==2)
|
|
stopnja_izvajalec.podipl <- stopnja_izvajalec.podipl[, !(colnames(stopnja_izvajalec.podipl) %in% c("STOPNJA"))]
|
|
stopnja_izvajalec.podipl <-
|
|
stopnja_izvajalec.podipl[c("x","program.studentov.ime","program.studentov",paste0(vars.izvajalec$cont$vars),"izvajalec.ocena.SKUPAJ")]
|
|
## Izloèimo Neznan program
|
|
stopnja_izvajalec.podipl <- stopnja_izvajalec.podipl[!stopnja_izvajalec.podipl$program.studentov.ime == "Neznan program", ]
|
|
st.programov5<-length(stopnja_izvajalec.podipl$program.studentov.ime)
|
|
}
|
|
|
|
if (nrow(izv.predmet) > 0 & any(program_podiplomski_studij$STOPNJA==2, na.rm=TRUE)) {
|
|
|
|
if (sortByAverage) {
|
|
rownames(stopnja_izvajalec.podipl) <-
|
|
formatProgImena(stopnja_izvajalec.podipl$program.studentov.ime, stopnja_izvajalec.podipl$izvajalec.ocena.SKUPAJ)
|
|
stopnja_izvajalec.podipl <-
|
|
stopnja_izvajalec.podipl[order(stopnja_izvajalec.podipl$izvajalec.ocena.SKUPAJ, decreasing=TRUE),
|
|
!(colnames(stopnja_izvajalec.podipl) %in% c("program.studentov.ime", "program.studentov"))] # sort and drop unneeded columns
|
|
|
|
} else { # sort by name
|
|
rownames(stopnja_izvajalec.podipl) <- stopnja_izvajalec.podipl$program.studentov.ime
|
|
stopnja_izvajalec.podipl <-
|
|
stopnja_izvajalec.podipl[order(as.character(sapply(rownames(stopnja_izvajalec.podipl), titula.rm)), decreasing=FALSE),
|
|
!(colnames(stopnja_izvajalec.podipl) %in% c("program.studentov.ime", "program.studentov"))] # sort and drop unneeded columns
|
|
}
|
|
stopnja_izvajalec.podipl <-
|
|
rbind(stopnja_izvajalec.podipl, c(colMeans(stopnja_izvajalec.podipl[1:1]),
|
|
colMeans(stopnja_izvajalec.podipl[2:ncol(stopnja_izvajalec.podipl)], na.rm=TRUE)))
|
|
stopnja_izvajalec.podipl <-
|
|
formatNA(stopnja_izvajalec.podipl, decimalke=c(0,as.numeric(vars.izvajalec$cont$decimalke),decimalkeIzvSkupaj),
|
|
pobarvanka=c("NE", as.character(vars.izvajalec$cont$pobarvanka),pobarvankaIzvSkupaj), na.repl=".")
|
|
rownames(stopnja_izvajalec.podipl )[nrow(stopnja_izvajalec.podipl)] <-
|
|
c(paste0("\\hline \\textbf{Povpreèje ", fakulteta," (",st.programov5," programov)}"))
|
|
colnames(stopnja_izvajalec.podipl ) <-
|
|
latex.rotate(c("Št. IPP", Hmisc::latexTranslate(as.character(vars.izvajalec$cont$ime.kratko)), "\\textbf{Skupaj}"))
|
|
stopnja_izvajalec.podipl.tex <- capture.output(Hmisc::latex(stopnja_izvajalec.podipl,
|
|
caption="Povpreèja \\textbf{izvajalcev pri predmetih}
|
|
po študijskih programih (anketa PRED izpitom),
|
|
sortirana po \\textbf{Skupaj}",
|
|
rowlabel="",
|
|
file="",
|
|
where="H",
|
|
rowlabel.just="A{12cm}",
|
|
multicol=FALSE,
|
|
longtable=TRUE,
|
|
lines.page=1000,
|
|
insert.bottom=paste("{\\footnotesize \\textit{**
|
|
»Št. IPP« - število vseh
|
|
izvajalcev pri predmetih
|
|
na doloèenem programu.}}"),
|
|
col.just=c("c|",rep_len("c", length(vars.izvajalec$cont$vars)),"|c")))
|
|
} else {
|
|
stopnja_izvajalec.podipl.tex <- "Ni ocen."
|
|
}
|
|
|
|
## //IZPIS ZA IZVAJALCE PRI PREDMETIH (IPP) DRUGA STOPNJA// ##
|
|
|
|
|
|
############################################################
|
|
###/IZPIS ZA IZVAJALCE PRI PREDMETIH (IPP) DRUGA STOPNJA/###
|
|
|
|
|
|
|
|
katedre.tex [[as.character(katedra)]] <- c(
|
|
# students of programme
|
|
|
|
if (any(program.predmeti.pred.redni.program.tex!="Ni ocen.")) {c("\\chapter{Redni študij}","\\renewcommand{\\leftmark}{Predmeti - redni študij}",
|
|
paste("Prikazana so povpreèja za ocene komponent na lestvici 1-5 za predmete z vsaj 4 odgovori. Povpreèja pod 4.0 so obarvana {\\color{Orange}\\textbf{oranžno (opozorilno)}}, povpreèja pod 3.0 pa {\\color{BrickRed}\\textbf{rdeèe (kritièno)}}. Nizko število enot in neugodne stopnje sodelovanja so oznaèene z enojnim () oklepajem oziroma z dvojnim oklepajem (()). Podrobnosti so v metodoloških navodilih na koncu poroèila in na \\url{http://ul.1ka.si/metodologija}."),
|
|
"\\section{Predmeti}","\\subsection{Anketa PRED izpitom}", program.predmeti.pred.redni.program.tex, "\\newpage", "\\subsection{Anketa PO izpitu}", program.predmeti.po.redni.program.tex, "\\newpage",program.predmeti.po.redni.program.krediti.tex,"\\newpage",
|
|
"\\section{Izvajalci pri predmetih}","\\renewcommand{\\leftmark}{Izvajalci pri predmetih - redni študij}", program.izvajalci.redni.program.tex)} else {c("\\chapter{Redni študij}","Ni ocen za redni študij.")},
|
|
"\\chapter{Izredni študij}","\\renewcommand{\\leftmark}{Predmeti - izredni študij}",
|
|
if (program.predmeti.pred.izredni.tex != "Ni ocen." && !is.null(program.predmeti.po.izredni.tex) && program.izvajalci.izredni.tex != "Ni ocen.") {
|
|
c("\\section{Predmeti}","\\subsection{Anketa PRED izpitom}", program.predmeti.pred.izredni.program.tex, "\\newpage", "\\subsection{Anketa PO izpitu}",program.predmeti.po.izredni.program.tex, "\\newpage",
|
|
"\\section{Izvajalci pri predmetih}","\\renewcommand{\\leftmark}{Izvajalci pri predmetih - izredni študij}", program.izvajalci.izredni.program.tex, "\\newpage",program.predmeti.po.izredni.program.krediti)
|
|
} else {"Ni ocen za izredni študij."},
|
|
if (any(program.izvajalci.skupaj.tex!="Ni ocen.")) {c("\\chapter{Povpreèja po izvajalcih}", "\\renewcommand{\\leftmark}{Povpreèja po izvajalcih}",
|
|
paste("Pri izraèunu povpreèij za izvajalce imajo vsi predmeti (redni in izredni) enako težo, ne glede na število študentov. V stolpcu \\guillemotright Št. predmetov\\guillemotleft \\ je število vseh predmetov izvajalca, kjer so na anketo odgovarjali vsaj", minEnot, "študenti. Ocene pod 4.0 so obarvane {\\color{Orange}\\textbf{oranžno (opozorilno)}}, ocene pod 3.0 pa {\\color{BrickRed}\\textbf{rdeèe (kritièno)}}. Podrobnosti so v metodoloških navodilih na koncu poroèila in na \\url{http://ul.1ka.si/metodologija}."),
|
|
program.izvajalci.skupaj.tex)} else {c("\\chapter{Povpreèja po izvajalcih}", "\\renewcommand{\\leftmark}{Povpreèja po izvajalcih}","Ni ocen za izvajalce.")},
|
|
if (any(program.predmeti.pred.redni.program.tex!="Ni ocen.")) {c(
|
|
"\\chapter{Povpreèja po študijskih programih}","\\renewcommand{\\leftmark}{Študijski programi}",
|
|
paste("Izraèunana so povpreèja po vseh predmetih (oziroma po vseh izvedbah pri predmetih), rednih in izrednih, ki so jih ocenjevali študenti doloèenega študijskega programa. Predmeti z veliko in malo študenti imajo enako težo. V stolpcu \\guillemotright Št. predmetov\\guillemotleft \\ je skupno število predmetov (oziroma izvajalcev pri predmetih), kjer so odgovarjali vsaj", minEnot, "študenti. Med predmete doloèenega programa so vkljuèeni tudi prosto izbirni predmeti (oziroma izvajalci pri predmetih) drugim programov (èe so jih izbrali študenti)."),
|
|
"\\section{Dodiplomski študij}",
|
|
program_BD_pred.skupaj.tex,"\\newpage",program_BD_po.skupaj.tex,"\\newpage",program_BD_po.skupaj.krediti.tex,"\\newpage",
|
|
stopnja_izvajalec.skupaj.tex,"\\newpage","\\section{Podiplomski študij}",
|
|
program_BD_pred.podipl.tex,"\\newpage",program_BD_po.podipl.tex,"\\newpage",program_BD_po.podipl.krediti.tex,"\\newpage",
|
|
stopnja_izvajalec.podipl.tex,"\\newpage")} else {c("\\chapter{Povpreèja po študijskih programih}","\\renewcommand{\\leftmark}{Študijski programi}","Ni ocen za študijski program.")},
|
|
# all students
|
|
if (allstudents) {c(
|
|
"\\chapter{Povpreèja po izvajalcih}",
|
|
paste("Pri izraèunu povpreèij za izvajalce imajo vsi predmeti (redni in izredni) enako težo, ne glede na število študentov. V stolpcu \\guillemotright Št. predmetov\\guillemotleft \\ je število vseh predmetov izvajalca, kjer so na anketo odgovarjali vsaj", minEnot, "študenti. Ocene pod 4.0 so obarvane {\\color{Orange}\\textbf{oranžno (opozorilno)}}, ocene pod 3.0 pa {\\color{BrickRed}\\textbf{rdeèe (kritièno)}}. Podrobnosti so v metodoloških navodilih na koncu poroèila in na \\url{http://ul.1ka.si/metodologija}."),
|
|
program.izvajalci.skupaj.vsi.tex,
|
|
"\\chapter{Redni študij}",
|
|
"\\section{Predmeti}",
|
|
program.predmeti.pred.redni.tex, "\\newpage", program.predmeti.po.redni.tex, "\\newpage",
|
|
"\\section{Izvajalci pri predmetih}",
|
|
program.izvajalci.redni.tex, "\\newpage",
|
|
"\\chapter{Izredni študij}",
|
|
if (program.predmeti.pred.izredni.tex != "Ni ocen." && !is.null(program.predmeti.po.izredni.tex) && program.izvajalci.izredni.tex != "Ni ocen.") {
|
|
c("\\section{Ocene predmetov}",
|
|
program.predmeti.pred.izredni.tex, "\\newpage", program.predmeti.po.izredni.tex, "\\newpage",
|
|
"\\section{Izvajalci pri predmetih}",
|
|
program.izvajalci.izredni.tex, "\\newpage")
|
|
} else {"Ni ocen za izredni študij."}
|
|
)}
|
|
)
|
|
}
|
|
|
|
|
|
# making pdfs
|
|
tex.glava <- scan("Evalvacija/latexkosi/a-glava-katedra.tex", character(0), sep="\n", quiet=TRUE, encoding="UTF-8")
|
|
tex.glava <- gsub(pattern='!ime.fak!', replacement=Hmisc::latexTranslate(ime.fakultete), x=tex.glava)
|
|
tex.glava <- gsub(pattern='!leto!', replacement=Hmisc::latexTranslate(semester.leto), x=tex.glava)
|
|
tex.glava <- gsub(pattern='!encoding_r!', tolower(gsub("-","",localeToCharset(locale=Sys.getlocale("LC_CTYPE")))), x=tex.glava)
|
|
tex.noga <- scan("Evalvacija/latexkosi/z-noga.tex", character(0), sep="\n", quiet=TRUE, encoding="UTF-8")
|
|
Rdirektorij <- getwd()
|
|
|
|
for (katedra in names(katedre.tex )) {
|
|
tex.glava.program <- gsub(pattern='!naslov!', replacement=unique(Hmisc::latexTranslate(programi[programi$Katedra==katedra,"Katedra"])), x=tex.glava)
|
|
tex.program <- c(tex.glava.program,"\\setlength{\\tabcolsep}{4pt}",
|
|
katedre.tex[[as.character(katedra)]], "\\newpage",tex.okvir,"\\newpage",
|
|
tex.noga)
|
|
|
|
cat(tex.program, file=paste("Evalvacija/results/program_", katedra,"_", fakulteta, ".tex", sep=""), sep="\n")
|
|
setwd(paste(Rdirektorij, "Evalvacija/results", sep="/"))
|
|
tools::texi2pdf(file=paste("program_", katedra,"_", fakulteta, ".tex", sep=""), quiet=TRUE, clean=TRUE)
|
|
setwd(Rdirektorij)
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|