library(readxl)
rezultati <- read_xlsx("./MTRD SM 3.7.2023.xlsx")
rezultati <- as.data.frame(rezultati)
print(rezultati[c(1, 4, 5, 6, 7)])
## Vpisna Metodologija SM Skupaj Ocena
## 1 19437795 72 94.0 83.0 9
## 2 19476662 56 58.0 57.0 6
## 3 19524989 81 68.8 74.9 8