MTRD nadomestni kolokvij 1, 14. 1. 2023

Na kolokviju je bilo možno doseči 15 točk.

rezultati <- read.table("./MTRD 2022_2023_nad_kolokvij1.csv", header=TRUE, sep=";", dec=",")

rezultati <- rezultati[c(1:11), c(1, 2, 3, 7, 8)]
rezultati$K1_nad_odst <- round(rezultati$K1_nad_odst, 2)
rezultati$K1_nad_tocke <- round(rezultati$K1_nad_tocke, 0)

library(pastecs)
round(stat.desc(rezultati$K1_nad_tocke), 2)

##      nbr.val     nbr.null       nbr.na          min          max        range          sum       median         mean 
##        11.00         0.00         0.00         2.00        10.00         8.00        82.00         8.00         7.45 
##      SE.mean CI.mean.0.95          var      std.dev     coef.var 
##         0.79         1.76         6.87         2.62         0.35

print(rezultati[c(1, 4, 5)])

##    Vpisnaštevilka K1_nad_odst K1_nad_tocke
## 1        19163081       66.67           10
## 2        19206601       66.67           10
## 3        19611247       66.67           10
## 4        19236002       60.00            9
## 5        19231973       60.00            9
## 6        19226869       53.33            8
## 7        19611430       53.33            8
## 8        19410991       40.00            6
## 9        19181142       33.33            5
## 10       19234403       33.33            5
## 11       19610615       13.33            2