#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=",")

Rezultati

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