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

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