rezultati <- read.table("/cloud/project/Izpitno gradivo/Kolokvij 2 - 5. 7. 2021/Rezultati/Rezultati_05072021.csv", header=TRUE, sep=";", dec=",")
library(pastecs)
round(stat.desc(rezultati$K2_točke), 2) #Drugi kolokvij, 5. 7. 2021
##      nbr.val     nbr.null       nbr.na          min          max        range          sum       median         mean 
##        48.00         0.00         0.00         3.00        10.00         7.00       322.00         7.00         6.71 
##      SE.mean CI.mean.0.95          var      std.dev     coef.var 
##         0.23         0.46         2.47         1.57         0.23
round(stat.desc(rezultati$Točke_kolokvij), 2) #Prvi in drugi kolokvij skupaj
##      nbr.val     nbr.null       nbr.na          min          max        range          sum       median         mean 
##        48.00         0.00         0.00         8.00        19.00        11.00       636.00        14.00        13.25 
##      SE.mean CI.mean.0.95          var      std.dev     coef.var 
##         0.39         0.78         7.26         2.69         0.20
library(ggplot2)
ggplot(rezultati, aes(x = Točke_kolokvij)) +
  geom_bar() +
  scale_x_continuous(breaks = (seq(min(rezultati$Točke_kolokvij), 
                                       max(rezultati$Točke_kolokvij), 
                                       by = 1))) +
  xlab("Doseženo število točk na obeh kolokvijih") +
  ylab("Frekvenca") +
  geom_vline(xintercept = 10.5, col = "red") +
  stat_function(fun = function(x) dnorm(x, 
                                        mean = mean(rezultati$Točke_kolokvij), 
                                        sd = sd(rezultati$Točke_kolokvij)) * 58 * 1,
                                        color = "darkred", size = 1)

table(rezultati$Točke_kolokvij)
## 
##  8  9 11 12 13 14 15 16 17 18 19 
##  2  5  6  5  5  8  8  4  3  1  1
rezultati$IzpolnjenPogoj <- ifelse(rezultati$Točke_kolokvij >= 11, "DA", "NE")
print(rezultati[, c(1, 12, 13, 14, 15)])
##    Vpisnaštevilka K1_točke K2_točke Točke_kolokvij IzpolnjenPogoj
## 1        19437352        9       10             19             DA
## 2        19165597       10        8             18             DA
## 3        19451665        8        9             17             DA
## 4        19210623        9        8             17             DA
## 5        19552724        9        8             17             DA
## 6        19418883        7        9             16             DA
## 7        19298666        8        8             16             DA
## 8        19501372        8        8             16             DA
## 9        19572011        9        7             16             DA
## 10       19486401        6        9             15             DA
## 11       19114956        7        8             15             DA
## 12       19538430        7        8             15             DA
## 13       19850149        7        8             15             DA
## 14       19112435        8        7             15             DA
## 15       19477792        8        7             15             DA
## 16       19540676        8        7             15             DA
## 17       19572989        8        7             15             DA
## 18       19142983        6        8             14             DA
## 19       19460537        6        8             14             DA
## 20       19248238        7        7             14             DA
## 21       19253672        7        7             14             DA
## 22       19384437        7        7             14             DA
## 23       19396487        7        7             14             DA
## 24       19504741        7        7             14             DA
## 25       19573359        7        7             14             DA
## 26       19153618        6        7             13             DA
## 27       19268647        6        7             13             DA
## 28       19572931        6        7             13             DA
## 29       19146108        7        6             13             DA
## 30       19268584        7        6             13             DA
## 31       19115511        5        7             12             DA
## 32       19522907        5        7             12             DA
## 33       19573673        6        6             12             DA
## 34       19830747        6        6             12             DA
## 35       19152017        8        4             12             DA
## 36       19164881        4        7             11             DA
## 37       19214701        4        7             11             DA
## 38       19542402        4        7             11             DA
## 39       19757861        5        6             11             DA
## 40       19538341        6        5             11             DA
## 41       19193521        6        5             11             DA
## 42       19268694        4        5              9             NE
## 43       19506997        4        5              9             NE
## 44       19777583        5        4              9             NE
## 45       19857241        5        4              9             NE
## 46       19433949        6        3              9             NE
## 47       19840401        4        4              8             NE
## 48       19450395        5        3              8             NE