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