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