rezultati <- read.table("/cloud/project/Izpitno gradivo/3. redni rok - 5. 9. 2022/Rezultati/Celota/Rezultati MTRD 5. 9. 2022.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šetejeta rezultat 1. in 2. kolokvija (0-100 %). Nato se določi končna ocena kot 70 točk na izpitu, 15 točk na prvem in 15 točk na drugem kolokviju. V kolikor ste dosegli vsaj 55,5 točk (glej stolpec Točke), imate pozitivno oceno, drugače 5.
print(rezultati[c(-1, -2, -3)])
##    Vpisna.številka Izpit_odstotek Pogoj    K1 K2 Točke Ocena
## 1         19590657             75     1 80.00 30  69.0     7
## 2         19183967             70     1 66.67 40  65.0     7
## 3         19589809             70     1 53.33 70  67.5     7
## 4         19130852             65     1 66.67 40  61.5     6
## 5         19184054             65     1 46.67 40  58.5     6
## 6         19591451             60     1 93.33 40  62.0     6
## 7         19190073             65     1 60.00 20  57.5     6
## 8         19213411             55     1 53.33 30  51.0     5
## 9         19162931             55     1 53.33 40  52.5     5
## 10        19186266             50     1 66.67 30  49.5     5
## 11        19525695             45     0    NA NA    NA     5
## 12        19180793             45     0    NA NA    NA     5
## 13        19144671             45     0    NA NA    NA     5
## 14        19183050             45     0    NA NA    NA     5
## 15        19560720             45     0    NA NA    NA     5
## 16        19589568             35     0    NA NA    NA     5
## 17        19590259             35     0    NA NA    NA     5
## 18        19155196             30     0    NA NA    NA     5