49 lines
2.7 KiB
R
49 lines
2.7 KiB
R
semester.leto <- "Študijsko leto 2016/17" # Prikaz na prvi strani PDF poro?ila pod naslovom in v nogi
|
|
|
|
# V primeru, da v poro?ilu za izvajalca nosilec predmeta ?eli videti tudi ocene soizvajalca
|
|
nosilci_soizvajalcev <- TRUE
|
|
|
|
omejeniIzvajalci <- FALSE # ali naj omeji poro?ila samo na dolo?ene izvajalce. Uporabmo v primeru testiranja poro?il
|
|
omejeniIzvajalciSifre <- c("3000021_FDV_321", "3000021_FDV_722", "3000021_FDV_1556") # katere glede na vrstico zgoraj
|
|
|
|
minEnot <- 4 # najmanj?e ?tevilo odgovorov, kjer se poka?e rezultat, ko ne gre za anlize po skupinah
|
|
|
|
izvedba_v_imenu <- FALSE # na koncu imena predmeta doda ?e 1Z, 2P ipd. Da se lo?ijo tisti ki so v obeh semestrih. (sifrant$IZVEDBA)
|
|
oblikovanje_izvedbe <- FALSE # should first page have izvedba, semester text
|
|
|
|
|
|
#Barvanje st. studentov, ?t.odgovorov, % odgovorov, itd, v tabelah za povpre?ja komponent
|
|
#FDVstopnjaPobarvanka <- list(dodiplomski="NE", podiplomski="NE", skupaj="NE")
|
|
FDVstopnjaPobarvanka <- list(dodiplomski="30,40,Inf,Inf", podiplomski="30,40,Inf,Inf", skupaj="30,40,Inf,Inf",
|
|
st.stud="5,10,Inf,Inf", n.anket="5,10,Inf,Inf", sodelu.pct="10,25,Inf,Inf", zavr.pct="0,0,50,75")
|
|
|
|
#za 3,4,Inf,Inf -> manj kot 3 je bold rede?e, 3 ali ve? in manj kot 4 je samo rde?e, Inf, Inf pomeni da ni zgornje meje za barvanja.
|
|
#za 2.4,2.7,3.3,3.6 -> manj kot 2.4 je bold rede?e, 2.4 ali ve? in manj kot 2.7 je samo rde?e, 3.3 ali ve? in manj?e kot 3.6 je samo rde?e, ve? kot 3.6 je bold rde?e
|
|
#Vrednosti 3,4,Inf,Inf so definirane v navodila_dodatno-UTF-8.r, vrednosti 2.4,2.7,3.3,3.6 pa v excelovi datoteki Navodila.
|
|
|
|
pobarvankaPredmSkupaj <- "3,4,Inf,Inf"
|
|
pobarvankaIzvSkupaj <- "3,4,Inf,Inf"
|
|
# Zaokro?evanje povpre?ij v tabelah
|
|
decimalkePredmSkupaj <- 1 # zaokro?imo na eno decimalko
|
|
decimalkeIzvSkupaj <- 1 # zaokro?imo na eno decimalko
|
|
|
|
# what should be excluded from student comments
|
|
junk.komentar <- c(NA,"-1","-2","-3","-4","-5","-97","-98","-99","-","/","\\",".","","-1: Ni odgovoril","-2: Preskok (if)","-3: Prekinjeno", "#NAME?")
|
|
|
|
# strings to be used for semester specific calculations in metodology (this values present specific semester in sifrant$SEMESTER_IZV)
|
|
prvi_semester <- c("zimski", "prvi semester", 1)
|
|
drugi_semester <- c("letni", "drugi semester", "celoletni", 2, 3)
|
|
|
|
# NOT USING THIS NOW #
|
|
# evaluations start/end dates for methodology (T1 1st semester start, T2 end; T3 2nd semester start, T4 end)
|
|
metod_T1 <- "T1"
|
|
metod_T2 <- "T2"
|
|
metod_T3 <- "T3"
|
|
metod_T4 <- "T4"
|
|
# //NOT USING THIS NOW// #
|
|
|
|
|
|
#ZA PORO?ILA ZA KATEDRE
|
|
#katedre <- read.csv2("Evalvacija/temp/miha_test.csv",sep=";", header=T, fill=T,stringsAsFactors=FALSE)
|
|
#katedre <- katedre[-which(katedre$Katedra == ""), ]
|
|
#katedre<-katedre[!is.na(katedre$Katedra),] |