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