rezultati <- read.table("//cloud/project/Izpitno gradivo/IZREDNI - 1. kolokvij - 9. 6. 2022/Rezultati.2021/Rezultati_K1.csv", header=TRUE, sep=";", dec=",")
podatki <- rezultati[ , c(1:4)]

library(rstatix)
## 
## Attaching package: 'rstatix'
## The following object is masked from 'package:stats':
## 
##     filter
podatki <- drop_na(podatki)
library(psych)
psych::describe(podatki$K1_točke)
##    vars  n  mean  sd median trimmed  mad min max range  skew kurtosis   se
## X1    1 39 11.38 2.6     12   11.58 2.97   4  15    11 -0.67     0.13 0.42
library(ggplot2)
## 
## Attaching package: 'ggplot2'
## The following objects are masked from 'package:psych':
## 
##     %+%, alpha
ggplot(podatki, aes(x = K1_točke)) +
  geom_bar() +
  scale_x_continuous(breaks = (seq(min(podatki$K1_točke), 
                                       max(podatki$K1_točke), 
                                       by = 1))) +
  xlab("Doseženo število točk") +
  ylab("Frekvenca") +
  stat_function(fun = function(x) dnorm(x, 
                                        mean = mean(podatki$K1_točke), 
                                        sd = sd(podatki$K1_točke)) * 39 * 1,
                                        color = "darkred", size = 1)

table(podatki$K1_točke)
## 
##  4  6  7  8  9 10 11 12 13 14 15 
##  1  1  1  2  3  5  5  7  6  3  5

Maksimalno število točk: 15

print(podatki[c(1, 4)])
##    Vpisnaštevilka K1_točke
## 1        19103071       14
## 2        19124477       12
## 3        19130260        9
## 4        19130852       10
## 5        19133434       10
## 6        19136990       15
## 7        19160824       11
## 8        19172101       12
## 9        19184253       15
## 10       19186051       13
## 11       19201954       13
## 12       19202591       12
## 13       19204096       11
## 14       19211868       13
## 15       19212051       11
## 16       19240155       15
## 17       19246670       12
## 18       19433949       10
## 19       19435056       10
## 20       19493954       10
## 21       19495555       15
## 22       19536435       11
## 23       19545222       12
## 24       19560720        6
## 25       19577395       14
## 26       19589285        7
## 27       19589809        8
## 28       19590259        4
## 29       19590767       12
## 30       19590840        9
## 31       19591514       12
## 32       19592104       13
## 33       19592146        9
## 34       19592502       13
## 35       19593113        8
## 36       19593244       13
## 37       19765336       11
## 38       19832460       14
## 39       19995155       15