#Odstotek dosežen na izpitu (glej Metodologija_01022022) se pretvori v največ 110 točk (glej Metodologija_Točke_110max). Za pozitivno oceno iz metodologije je potrebno imeti vsaj 56 točk, kar je določeno v stolpcu PogojF. Potem se upošteva število doseženih točk iz statističnih metod (glej StatističneMetode_Točke_110max), ki jih imate že opravljene. Na podlagi končnega številka točk, ki se določi kot povprečje rezultata iz statističnih metod in metodologije, se določi končna ocena.
rezultati <- read.table("/cloud/project/Izpitno gradivo/2. redni rok - 1. 2. 2022/Rezultati/2. redni rok Metod/2. redni rok, Metod rezultati.csv", header=TRUE, sep=";", dec=",")
summary(rezultati$Metodologija_Točke_110max)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.0 71.5 71.5 77.0 82.5 93.5
rezultati$Pogoj <- ifelse(rezultati$Metodologija_Točke_110max < 56,
0,
1)
rezultati$PogojF <- factor(rezultati$Pogoj,
levels = c(0, 1),
labels = c("NE", "DA"))
print(rezultati[c(1, 4, 6, 7, 11, 5, 8, 9)])
## Št Vpisnaštevilka Metodologija_01022022 Metodologija_Točke_110max PogojF StatističneMetode_Točke_110max Skupaj_110max
## 1 1 19184803 65 71.5 DA 71.50 71.5
## 2 2 19186617 85 93.5 DA 71.50 82.5
## 3 3 19152216 75 82.5 DA 66.00 74.3
## 4 4 19216007 65 71.5 DA 58.66 65.1
## 5 5 19224112 60 66.0 DA 56.00 61.0
## Ocena
## 1 7
## 2 9
## 3 8
## 4 7
## 5 6