library(readxl)

rezultati <- read_xlsx("./MTRD 1. izredni rok - 3. 7. 2023.xlsx")
rezultati <- as.data.frame(rezultati)
print(rezultati[c(1, 4, 5, 6, 7, 8)])
##      Vpisna Kolokvija Izpit_odstotek Izpit_tocke SKUPAJ Ocena
## 1  19610023      26.8          86.67       100.0   96.8    10
## 2  19184358      20.3          86.67       100.0   91.0    10
## 3  19205571      20.8          73.33        84.6   81.0     9
## 4  19590882      24.4          66.67        76.9   78.2     8
## 5  19418258      22.2          60.00        69.2   71.0     8
## 6  19590840      16.2          60.00        69.2   64.7     7
## 7  19435056      16.0          60.00        69.2   64.5     7
## 8  19614557      25.9          40.00        46.2   61.0     7
## 9  19273458       9.5          60.00        69.2   58.0     6
## 10 19472939      13.8          53.33        61.5   56.9     6
## 11 19441625      13.3          53.33        61.5   56.4     6
## 12 19468539      16.5          46.67        53.8   54.2     6
## 13 19181907      21.1          40.00        46.2   53.4     6
## 14 19590259      15.2          46.67        53.8   52.9     6
## 15 19610002      15.7          40.00        46.2   51.0     6
## 16 19368991      14.7          40.00        46.2   51.0     6
## 17 19184096      13.3          46.67        53.8   51.0     6
## 18 19428739      11.9          40.00        46.2   44.2     5
## 19 19485303      13.0          33.33        38.5   39.9     5
## 20 19592413      17.0          26.67        30.8   38.6     5
## 21 19491130       9.2          33.33        38.5   36.1     5
## 22 19160536      14.5          26.67        30.8   36.1     5