podatki <- read.table("/cloud/project/Izpitno gradivo/2. kolokvij - 11.12.2021/Rezultati/Nadomestni kolokvij/K2_nadomestni.csv", header=TRUE, sep=";", dec=",")
podatki$Odstotek <- podatki$Skupaj
podatki$Točke <- round(podatki$Odstotek/100*15, 1)
library(psych)
psych::describe(podatki$Točke)
## vars n mean sd median trimmed mad min max range skew kurtosis se
## X1 1 14 7.61 1.99 7.5 7.5 2.22 4.5 12 7.5 0.61 -0.42 0.53
Rezultati
print(podatki[c(1, 4, 6, 7)])
## Št Vpisnaštevilka Odstotek Točke
## 1 1 19186266 30 4.5
## 2 2 19215045 50 7.5
## 3 3 19248531 80 12.0
## 4 4 19182434 60 9.0
## 5 5 19163631 40 6.0
## 6 6 19164420 60 9.0
## 7 7 19552936 50 7.5
## 8 8 19403784 40 6.0
## 9 9 19160536 50 7.5
## 10 10 19164127 70 10.5
## 11 11 19165618 50 7.5
## 12 12 19206051 50 7.5
## 13 13 19184054 40 6.0
## 14 14 19527949 40 6.0