podatki <- read.table("./MTRD 2022_2023.csv", header=TRUE, sep=";", dec=",")
podatki <- podatki[1:3, ]
print(podatki[c(1, 8:13)])
## Vpisnaštevilka K_skupaj Bonus Predrok_odst Predrok_tocke Skupaj Ocena
## 1 19206135 20.5 0.00 93.33 70 90.5 10
## 2 19203815 19.0 0.00 80.00 60 79.0 8
## 3 19203878 14.5 1.75 46.67 35 NA 5