library(readxl)
rezultati <- read_xlsx("/cloud/project/Izpitno gradivo/Dodatni redni rok - 19. 3. 2022/Rezultati/Statistične metode/MTRD Dodatni RedniRok - 19 03 2022.xlsx")
rezultati <- as.data.frame(rezultati[c(1) , c(1, 6:9)])
rezultati
## Vpisna Ocena Stat metod Metodol Skupaj
## 1 19104321 8 80.3 76 78.2