Na kolokviju je bilo doseženih največ 80 %, zato sem oceno prilagodil po formuli Rezultat/80*100.

library(readxl)
rezultati <- read_xlsx("./Generacija MTRD izredni.xlsx")

rezultati <- as.data.frame(rezultati)


rezultati[c(5, 6, 7)] <- round(rezultati[c(5, 6, 7)], 1)

rezultati_nov_sistem <- rezultati[1:28, ]
rezultati_star_sistem <- rezultati[29:33, ]

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

Opravljanje predmeta po starem sistemu (opravljanje samo manjkajočega dela statističnih metod)

Dosežen odstotek na K2 se pomnoži s 30 in dobi število končnih točk. Število doseženih točk na 2. kolokviju (glej K2_koncne) 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). Nato se vam prištejejo še točke iz metodologije in zaključi ocena.
rezultati_star_sistem$K2_koncne <- rezultati_star_sistem$K2*2
print(rezultati_star_sistem[order(-rezultati_star_sistem$K2), c(1, 8, 9, 12, 10)])
##      Vpisna Kolokvij2_odstotek Kolokvij2_odstotek_NOV K2_koncne Metodologija
## 29 19437795                 80                  100.0      30.0           72
## 30 19524989                 60                   75.0      22.4           81
## 31 19386606                 50                   62.5      18.8           56
## 32 19476662                 30                   37.5      11.2           56
## 33 19721060                 10                   12.5       3.8           73