rezultati <- read.table("/cloud/project/Izpitno gradivo/3. redni rok - 5. 9. 2022/Rezultati/Stat. metode/Rezultati_SM_05092022.csv", header=TRUE, sep=";", dec=",")
Podan je dosežen reultat na izpitu v odstotku (0-100 %). V kolikor ste dosegli vsaj 50 %, imate pri pogoju vrednost 1, drugače 0. Če ste dosegli pogoj, se prišeteje rezultat 2. kolokvija (0-100 %). Nato se določi končna ocena kot 70 točk na izpitu in 30 točk na kolokviju. V kolikor ste dosegli vsaj 55,5 točk (glej stolpec Skupaj), imate pozitivno oceno, drugače 5.
print(rezultati[c(-2, -3)])
##   Št Vpisna.številka Izpit_odstotek Pogoj K2 Skupaj Ocena
## 1  1        19143683             65     1 60   63.5     6
## 2  2        19146946             50     1 40   47.0     5
## 3  3        19127441             55     1 70   59.5     6
## 4  4        19152127             65     1 70   66.5     7
## 5  5        19123012             25     0 30   26.5     5