Ker je bilo na kolokviju doseženih največ 11 točk, je končno število točk izjemoma popravljeno po formuli Točke/11*15. Točke, zaokrožene na 1 decimalno mesto, bodo upoštevane pri končni oceni - glej K1_tocke_pop.
rezultati <- read.table("./MTRD 1. kolokvij IZREDNI, rezultati.csv", header=TRUE, sep=";", dec=",")
rezultati$K1_tocke <- round(rezultati$Tocke, 0)
rezultati$K1_tocke_pop <- round(rezultati$K1_tocke/11*15, 1)
library(pastecs)
round(stat.desc(rezultati$K1_tocke), 2)
##      nbr.val     nbr.null       nbr.na          min          max        range          sum       median         mean 
##        37.00         0.00         0.00         3.00        11.00         8.00       254.00         7.00         6.86 
##      SE.mean CI.mean.0.95          var      std.dev     coef.var 
##         0.31         0.62         3.45         1.86         0.27
library(pastecs)
round(stat.desc(rezultati$K1_tocke_pop), 2)
##      nbr.val     nbr.null       nbr.na          min          max        range          sum       median         mean 
##        37.00         0.00         0.00         4.10        15.00        10.90       346.10         9.50         9.35 
##      SE.mean CI.mean.0.95          var      std.dev     coef.var 
##         0.41         0.84         6.36         2.52         0.27
library(ggplot2)
ggplot(rezultati, aes(x = K1_tocke_pop)) +
  geom_bar() +
  scale_x_continuous(breaks = (seq(from = 0, to = 15, by = 1))) +
  xlab("Doseženo število točk") +
  ylab("Frekvenca") +
  stat_function(fun = function(x) dnorm(x, 
                                        mean = mean(rezultati$K1_tocke_pop), 
                                        sd = sd(rezultati$K1_tocke_pop)) * nrow(rezultati) * 1,
                                        color = "darkred", linewidth = 1)

print(rezultati[ , c(4, 5, 7, 8)])
##      Vpisna Odstotek K1_tocke K1_tocke_pop
## 1  19491130    26.67        4          5.5
## 2  19441625    46.67        7          9.5
## 3  19428739    40.00        6          8.2
## 4  19596753    53.33        8         10.9
## 5  19809017    20.00        3          4.1
## 6  19435056    60.00        9         12.3
## 7  19613663    40.00        6          8.2
## 8  19181907    66.67       10         13.6
## 9  19614557    53.33        8         10.9
## 10 19160583    40.00        6          8.2
## 11 19368991    53.33        8         10.9
## 12 19532877    33.33        5          6.8
## 13 19177838    46.67        7          9.5
## 14 19614583    33.33        5          6.8
## 15 19590882    73.33       11         15.0
## 16 19571241    53.33        8         10.9
## 17 19184096    46.67        7          9.5
## 18 19544959    46.67        7          9.5
## 19 19485303    26.67        4          5.5
## 20 19592413    46.67        7          9.5
## 21 19590259    46.67        7          9.5
## 22 19273458    46.67        7          9.5
## 23 19609992    40.00        6          8.2
## 24 19205571    46.67        7          9.5
## 25 19468539    53.33        8         10.9
## 26 19418258    53.33        8         10.9
## 27 19596341    66.67       10         13.6
## 28 19572769    33.33        5          6.8
## 29 19472939    40.00        6          8.2
## 30 19559808    40.00        6          8.2
## 31 19213844    26.67        4          5.5
## 32 19210492    60.00        9         12.3
## 33 19184358    53.33        8         10.9
## 34 19610002    40.00        6          8.2
## 35 19590840    33.33        5          6.8
## 36 19610018    40.00        6          8.2
## 37 19610023    66.67       10         13.6