Na izpitu morate doseči vsaj polovico možnih točk - v stolpcu Rezultat_70max morate imeti vsaj 35 točk. Nato se prišteje še rezultat kolokvijev in določi končna ocena.

library(readxl)
rezultati <- read_xlsx("/cloud/project/Izpitno gradivo/Dodatni redni rok - 19. 3. 2022/Rezultati/Celota/MTRD Dodatni RedniRok - 19 03 2022.xlsx")

rezultati <- as.data.frame(rezultati[c(2:9, 13:19) , c(1, 4:6)])
rezultati
##      Vpisna Rezultat_70max Točke_skupaj Ocena
## 1  19142166           42.0         59.5     6
## 2  19142941           38.5         58.0     6
## 3  19160934           45.5         64.5     7
## 4  19161325           49.0         66.5     7
## 5  19163799           38.5         57.0     6
## 6  19183506           49.0         66.0     7
## 7  19184138           42.0         57.5     6
## 8  19215045           42.0         60.5     6
## 9  19576901           35.0         41.0     5
## 10 19589678           21.0           NA     5
## 11 19589711           38.5         58.0     6
## 12 19589793           24.5           NA     5
## 13 19589877           45.5         61.0     6
## 14 19590463           49.0         68.0     7
## 15 19590814           42.0         59.0     6