Na kolokviju je bilo možno doseči 15 točk.
rezultati <- read.table("./MTRD 2022_2023_nad_kolokvij2.csv", header=TRUE, sep=";", dec=",")
rezultati <- rezultati[c(1:19), c(1, 2, 3, 11, 12)]
rezultati$K2_nad_odst <- round(rezultati$K2_nad_odst, 2)
rezultati$K2_nad_tocke <- round(rezultati$K2_nad_tocke, 1)
library(pastecs)
round(stat.desc(rezultati$K2_nad_tocke), 2)
## nbr.val nbr.null nbr.na min max range sum median mean
## 19.00 0.00 0.00 3.00 13.50 10.50 153.00 9.00 8.05
## SE.mean CI.mean.0.95 var std.dev coef.var
## 0.69 1.45 9.05 3.01 0.37
print(rezultati[c(1, 4, 5)])
## Vpisnaštevilka K2_nad_odst K2_nad_tocke
## 1 19163631 90 13.5
## 2 19193666 80 12.0
## 3 19163081 70 10.5
## 4 19204075 70 10.5
## 5 19204211 70 10.5
## 6 19144671 70 10.5
## 7 19236002 60 9.0
## 8 19206884 60 9.0
## 9 19576983 60 9.0
## 10 19610882 60 9.0
## 11 19613815 60 9.0
## 12 19186952 50 7.5
## 13 19231219 40 6.0
## 14 19611514 40 6.0
## 15 19611521 40 6.0
## 16 19410991 30 4.5
## 17 19611027 30 4.5
## 18 19610615 20 3.0
## 19 19210492 20 3.0