rezultati <- read.table("/cloud/project/Redni rok 1 19-1-2021/Rezultati/Rezultati_19012021.csv", header=TRUE, sep=";", dec=",")
colnames(rezultati)[1] <- "Vp_št."library(pastecs)
summary(rezultati[7])## Rezultat_19012021
## Min. : 14.67
## 1st Qu.: 38.17
## Median : 66.00
## Mean : 62.26
## 3rd Qu.: 80.67
## Max. :110.00rezultati$Opravil <- ifelse(rezultati$Rezultat_19012021 >= 56, "DA", "NE")
print(rezultati[, c(-2, -3)])## Vp_št. Rezultat_Izpit Rezultat_Izpit_točke Bonus Rezultat_19012021 Opravil
## 1 19165651 15 110.00 0 110.00 DA
## 2 19166653 14 102.67 2 104.67 DA
## 3 19146422 14 102.67 2 104.67 DA
## 4 19153120 13 95.33 2 97.33 DA
## 5 19570101 12 88.00 0 88.00 DA
## 6 19248271 12 88.00 0 88.00 DA
## 7 19215401 12 88.00 0 88.00 DA
## 8 19181378 11 80.67 2 82.67 DA
## 9 19182895 11 80.67 0 80.67 DA
## 10 19162968 11 80.67 0 80.67 DA
## 11 19181741 10 73.33 2 75.33 DA
## 12 19287111 10 73.33 0 73.33 DA
## 13 19188881 10 73.33 0 73.33 DA
## 14 19185299 10 73.33 0 73.33 DA
## 15 19105737 10 73.33 0 73.33 DA
## 16 19224285 9 66.00 0 66.00 DA
## 17 19194371 9 66.00 0 66.00 DA
## 18 19186575 9 66.00 0 66.00 DA
## 19 19165094 9 66.00 0 66.00 DA
## 20 19163338 9 66.00 0 66.00 DA
## 21 19130131 9 66.00 0 66.00 DA
## 22 19244055 8 58.67 0 58.67 DA
## 23 19170277 8 58.67 0 58.67 DA
## 24 19160489 8 58.67 0 58.67 DA
## 25 19542807 7 51.33 0 51.33 NE
## 26 19146401 6 44.00 0 44.00 NE
## 27 19162266 5 36.67 2 38.67 NE
## 28 19571770 5 36.67 0 36.67 NE
## 29 19287460 5 36.67 0 36.67 NE
## 30 19167683 4 29.33 0 29.33 NE
## 31 19164127 4 29.33 0 29.33 NE
## 32 19160934 4 29.33 0 29.33 NE
## 33 19125397 4 29.33 0 29.33 NE
## 34 19215134 3 22.00 0 22.00 NE
## 35 19192793 2 14.67 0 14.67 NE
## 36 19450395 2 14.67 0 14.67 NE