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