rezultati <- read.table("/cloud/project/Izpitno gradivo/Predrok - 20. 12. 2021/Rezultati/Rezultati MTRD 20.12.2021.csv", header=TRUE, sep=";", dec=",")
rezultati <- rezultati[1:3, ]
rezultati$K1_točke <- round(rezultati$K1_točke, 1)
print(rezultati[c(1, 5, 7, 9, 10, 11, 12)])
## Vpisnaštevilka K1_točke K2_točke Predrok_odstotek Predrok_točke Točke_končne Ocena
## 1 19206989 13 10.5 90 63 86.5 9
## 2 19183841 12 7.5 70 49 68.5 7
## 3 19203988 14 9.0 60 42 65.0 7