rezultati <- read.table("/cloud/project/Izpitno gradivo/3. izredni rok - 19. 09. 2022/Celota/MTRD - 3_ izredni rok 20_09_2022.csv", header=TRUE, sep=";", dec=",")
Podan je dosežen reultat na izpitu v odstotku (0-100 %) - stolpec Izpit. V kolikor ste dosegli vsaj 50 %, imate pri pogoju vrednost Da, drugače Ne. Če ste dosegli pogoj, se prišetejeta rezultat 1. in 2. kolokvija (v točkah, max 30). Nato se določi končna ocena kot: 0,7 * Izpit + Kolokvija. V kolikor ste dosegli vsaj 55,5 točk (glej stolpec Skupaj), imate pozitivno oceno, drugače 5.
print(rezultati[c(-1, -2, -3)])
##   Vpis_stevilka Izpit Pogoj Kolokvija Skupaj Ocena
## 1      19435056    40    Ne        NA     NA     5
## 2      19536435    53    Da      18.5   55.6     6
## 3      19590259    35    Ne        NA     NA     5
## 4      19560720    60    Da      15.0   57.0     6
## 5      19995155    75    Da      24.0   76.5     8
## 6      19590840    45    Ne        NA     NA     5