rezultati <- read.table("/cloud/project/Izpitno gradivo/Kolokvij 1 - 26. 6. 2021/Rezultati/Rezultati_1kolokvij.csv", header=TRUE, sep=";", dec=",")
rezultati$K1_28_06_2021_Točke <- rezultati$SM_1_kolokvij_28062021/10
rezultati$K1_28_06_2021_Točke_Bonus <- rezultati$K1_28_06_2021_Točke + 2 #Dodani 2 bonus točki.
library(pastecs)
round(stat.desc(rezultati$K1_28_06_2021_Točke_Bonus), 2)
## nbr.val nbr.null nbr.na min max range sum median mean
## 51.00 0.00 0.00 2.00 10.00 8.00 321.00 6.00 6.29
## SE.mean CI.mean.0.95 var std.dev coef.var
## 0.25 0.51 3.25 1.80 0.29
library(ggplot2)
ggplot(rezultati, aes(x = K1_28_06_2021_Točke_Bonus)) +
geom_bar() +
scale_x_continuous(breaks = (seq(min(rezultati$K1_28_06_2021_Točke_Bonus),
max(rezultati$K1_28_06_2021_Točke_Bonus),
by = 1))) +
xlab("Doseženo število točk") +
ylab("Frekvenca") +
geom_vline(xintercept = 3.5, col = "red") +
stat_function(fun = function(x) dnorm(x,
mean = mean(rezultati$K1_28_06_2021_Točke_Bonus),
sd = sd(rezultati$K1_28_06_2021_Točke_Bonus)) * 51 * 1,
color = "darkred", size = 1)
table(rezultati$K1_28_06_2021_Točke_Bonus)
##
## 2 3 4 5 6 7 8 9 10
## 2 1 6 6 11 12 8 4 1
rezultati$IzpolnjenPogoj <- ifelse(rezultati$K1_28_06_2021_Točke_Bonus >= 4, "DA", "NE")
print(rezultati[, c(1, 11, 12, 13)])
## Vpisnaštevilka K1_28_06_2021_Točke K1_28_06_2021_Točke_Bonus IzpolnjenPogoj
## 1 19165597 8 10 DA
## 2 19210623 7 9 DA
## 3 19437352 7 9 DA
## 4 19552724 7 9 DA
## 5 19572011 7 9 DA
## 6 19112435 6 8 DA
## 7 19152017 6 8 DA
## 8 19298666 6 8 DA
## 9 19451665 6 8 DA
## 10 19477792 6 8 DA
## 11 19501372 6 8 DA
## 12 19540676 6 8 DA
## 13 19572989 6 8 DA
## 14 19114956 5 7 DA
## 15 19146108 5 7 DA
## 16 19248238 5 7 DA
## 17 19253672 5 7 DA
## 18 19268584 5 7 DA
## 19 19384437 5 7 DA
## 20 19396487 5 7 DA
## 21 19418883 5 7 DA
## 22 19504741 5 7 DA
## 23 19538430 5 7 DA
## 24 19573359 5 7 DA
## 25 19850149 5 7 DA
## 26 19142983 4 6 DA
## 27 19153618 4 6 DA
## 28 19193521 4 6 DA
## 29 19268647 4 6 DA
## 30 19433949 4 6 DA
## 31 19460537 4 6 DA
## 32 19486401 4 6 DA
## 33 19538341 4 6 DA
## 34 19572931 4 6 DA
## 35 19573673 4 6 DA
## 36 19830747 4 6 DA
## 37 19115511 3 5 DA
## 38 19450395 3 5 DA
## 39 19522907 3 5 DA
## 40 19757861 3 5 DA
## 41 19777583 3 5 DA
## 42 19857241 3 5 DA
## 43 19164881 2 4 DA
## 44 19214701 2 4 DA
## 45 19268694 2 4 DA
## 46 19506997 2 4 DA
## 47 19542402 2 4 DA
## 48 19840401 2 4 DA
## 49 19240726 1 3 NE
## 50 19210450 0 2 NE
## 51 19268563 0 2 NE