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