Rezultati K1, nadomestni, 15. 1. 2022

podatki <- read.table("/cloud/project/Izpitno gradivo/1. kolokvij - 13.11.2021/Rezultati/Nadomestni rok/K1_nadomestni.csv", header=TRUE, sep=";", dec=",")

podatki$Odstotek <- podatki$Skupaj
podatki$Točke <- round(podatki$Odstotek/100*15, 0)

library(psych)
psych::describe(podatki$Točke)

##    vars  n  mean  sd median trimmed  mad min max range skew kurtosis   se
## X1    1 18 10.83 2.6     11      11 2.22   4  15    11 -0.8     0.48 0.61

print(podatki[c(1, 4, 6, 7)])

##    Št Vpisnaštevilka Odstotek Točke
## 1   1       19582171    80.00    12
## 2   2       19589877    73.33    11
## 3   3       19202020    53.33     8
## 4   4       19161854    93.33    14
## 5   5       19572418    86.67    13
## 6   6       19272449    53.33     8
## 7   7       19142166    26.67     4
## 8   8       19183506    73.33    11
## 9   9       19592062    73.33    11
## 10 10       19153424    73.33    11
## 11 11       19206596   100.00    15
## 12 12       19144671    73.33    11
## 13 13       19162732    53.33     8
## 14 14       19204190    73.33    11
## 15 15       19205550    66.67    10
## 16 16       19164127    86.67    13
## 17 17       19590264    86.67    13
## 18 18       19165618    73.33    11