rezultati <- read.table("/cloud/project/Redni rok 2 2-2-2021/Rezultati/Analiza_2RR.csv", header=TRUE, sep=";", dec=",")
colnames(rezultati)[1] <- "Vp_št."
library(pastecs)
summary(rezultati[7])
## Ocena
## Min. :22.00
## 1st Qu.:44.00
## Median :58.67
## Mean :57.63
## 3rd Qu.:73.33
## Max. :90.00
rezultati$Opravil <- ifelse(rezultati$Ocena >= 56, "DA", "NE")
print(rezultati[c(-2, -3)])
## Vp_št. RezultatAPZ Rezultat_točke Bonus Ocena Opravil
## 1 19141314 12 88.00 2 90.00 DA
## 2 19143348 11 80.67 0 80.67 DA
## 3 19573097 11 80.67 0 80.67 DA
## 4 19105131 10 73.33 0 73.33 DA
## 5 19133387 10 73.33 0 73.33 DA
## 6 19152829 10 73.33 0 73.33 DA
## 7 19165534 10 73.33 0 73.33 DA
## 8 19247351 10 73.33 0 73.33 DA
## 9 19268668 10 73.33 0 73.33 DA
## 10 19302703 10 73.33 0 73.33 DA
## 11 19570164 10 73.33 2 75.33 DA
## 12 19183066 9 66.00 0 66.00 DA
## 13 19192793 9 66.00 0 66.00 DA
## 14 19215134 9 66.00 0 66.00 DA
## 15 19215684 9 66.00 0 66.00 DA
## 16 19103284 8 58.67 2 60.67 DA
## 17 19125397 8 58.67 0 58.67 DA
## 18 19162250 8 58.67 0 58.67 DA
## 19 19182345 8 58.67 0 58.67 DA
## 20 19285154 8 58.67 0 58.67 DA
## 21 19287460 8 58.67 0 58.67 DA
## 22 19555563 8 58.67 0 58.67 DA
## 23 19572341 8 58.67 0 58.67 DA
## 24 19146401 7 51.33 0 51.33 NE
## 25 19212458 7 51.33 0 51.33 NE
## 26 19241410 7 51.33 0 51.33 NE
## 27 19467339 7 51.33 0 51.33 NE
## 28 19570122 7 51.33 0 51.33 NE
## 29 19123012 6 44.00 0 44.00 NE
## 30 19143683 6 44.00 0 44.00 NE
## 31 19145240 6 44.00 0 44.00 NE
## 32 19161592 6 44.00 0 44.00 NE
## 33 19163123 6 44.00 0 44.00 NE
## 34 19164310 6 44.00 0 44.00 NE
## 35 19183307 6 44.00 0 44.00 NE
## 36 19570033 6 44.00 2 46.00 NE
## 37 19552724 5 36.67 0 36.67 NE
## 38 19142983 4 29.33 2 31.33 NE
## 39 19450395 4 29.33 0 29.33 NE
## 40 19184651 3 22.00 0 22.00 NE