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