Opravljanje predmeta po novem sistemu (2 kolokvija in
izpit)
Dosežen odstotek se pomnoži s 15 in dobi končno število točk.
library(pastecs)
round(stat.desc(rezultati_nov_sistem$K2), 2)
## nbr.val nbr.null nbr.na min max range
## 28.00 0.00 0.00 1.90 15.00 13.10
## sum median mean SE.mean CI.mean.0.95 var
## 193.20 5.60 6.90 0.63 1.29 11.09
## std.dev coef.var
## 3.33 0.48
library(ggplot2)
ggplot(rezultati_nov_sistem, aes(x = K2)) +
geom_bar() +
scale_x_continuous(breaks = (seq(from = 0, to = 15, by = 1.5))) +
xlab("Doseženo število točk na 2. kolokviju") +
ylab("Frekvenca") +
stat_function(fun = function(x) dnorm(x,
mean = mean(rezultati_nov_sistem$K2),
sd = sd(rezultati_nov_sistem$K2)) * 28 * 1.5,
color = "darkred", linewidth = 1)

Rezultati na obeh kolokvijih skupaj
library(psych)
##
## Attaching package: 'psych'
## The following objects are masked from 'package:ggplot2':
##
## %+%, alpha
psych::describe(rezultati_nov_sistem$K_skupaj)
## vars n mean sd median trimmed mad min max range skew kurtosis se
## X1 1 28 16.79 4.86 15.85 16.6 4 9.2 26.8 17.6 0.5 -0.72 0.92
hist(rezultati_nov_sistem$K_skupaj,
main = "Porazdelitev točk na obeh kolokvijih skupaj",
xlab = "Točke",
xlim = c(0, 30),
breaks = seq(0, 30, 2))

library(car)
## Loading required package: carData
##
## Attaching package: 'car'
## The following object is masked from 'package:psych':
##
## logit
scatterplot(rezultati_nov_sistem$K1, rezultati_nov_sistem$K2,
smooth = FALSE,
regLine = TRUE)

Izpis rezultatov
Število doseženih točk na obeh kolokvijih skupaj (glej K_skupaj) in
število doseženih točk na prihodnjem izpitu mora skupaj znašati vsaj 51
točk, na izpitu pa je treba zbrati vsaj 35 točk (od 75 možnih).
print(rezultati_nov_sistem[order(-rezultati_nov_sistem$K2), c(1, 5:9)])
## Vpisna K1 K2 K_skupaj Kolokvij2_odstotek Kolokvij2_odstotek_NOV
## 2 19614557 10.9 15.0 25.9 80 100.0
## 1 19610023 13.6 13.1 26.8 70 87.5
## 3 19596341 13.6 11.2 24.9 60 75.0
## 5 19418258 10.9 11.2 22.2 60 75.0
## 7 19205571 9.5 11.2 20.8 60 75.0
## 4 19590882 15.0 9.4 24.4 50 62.5
## 8 19184358 10.9 9.4 20.3 50 62.5
## 13 19590840 6.8 9.4 16.2 50 62.5
## 6 19181907 13.6 7.5 21.1 40 50.0
## 10 19592413 9.5 7.5 17.0 40 50.0
## 15 19609992 8.2 7.5 15.7 40 50.0
## 16 19610002 8.2 7.5 15.7 40 50.0
## 23 19485303 5.5 7.5 13.0 40 50.0
## 9 19210492 12.3 5.6 17.9 30 37.5
## 11 19468539 10.9 5.6 16.5 30 37.5
## 12 19571241 10.9 5.6 16.5 30 37.5
## 17 19544959 9.5 5.6 15.2 30 37.5
## 18 19590259 9.5 5.6 15.2 30 37.5
## 20 19472939 8.2 5.6 13.8 30 37.5
## 27 19809017 4.1 5.6 9.7 30 37.5
## 14 19435056 12.3 3.8 16.0 20 25.0
## 19 19368991 10.9 3.8 14.7 20 25.0
## 21 19184096 9.5 3.8 13.3 20 25.0
## 22 19441625 9.5 3.8 13.3 20 25.0
## 25 19428739 8.2 3.8 11.9 20 25.0
## 28 19491130 5.5 3.8 9.2 20 25.0
## 24 19596753 10.9 1.9 12.8 10 12.5
## 26 19613663 8.2 1.9 10.1 10 12.5