MTRD Pripravljalnica - Živčnost

library(readxl)
podatki <- read_xlsx("./Zivcnost.xlsx")

podatki <- as.data.frame(podatki)

head(podatki)

##   ID Ponavljanje Izpit Zivcnost Spol
## 1  1           4    40   86.298    1
## 2  2          11    65   88.716    2
## 3  3          27    80   70.178    1
## 4  4          53    80   61.312    1
## 5  5           4    40   89.522    1
## 6  6          22    70   60.506    2

Opis spremenljivk:

• Ponavljanje: število ur učenja.
• Izpit: dosežek na izpitu v %.
• Zivcnost: stopnja živčnosti med 0 in 100.
• Spol: 1:M, 2:Ž.

podatki$SpolFaktor <- factor(podatki$Spol, 
                             levels = c(1, 2), 
                             labels = c("Moski", "zenska"))

head(podatki, 3)

##   ID Ponavljanje Izpit Zivcnost Spol SpolFaktor
## 1  1           4    40   86.298    1      Moski
## 2  2          11    65   88.716    2     zenska
## 3  3          27    80   70.178    1      Moski

Razsevni grafikon

library(car)
scatterplot(y = podatki$Izpit, 
            x = podatki$Zivcnost, 
            ylab = "Dosežek na izpitu v %", 
            xlab = "Živčnost pred izpitom", 
            smooth = FALSE)

scatterplot(Izpit ~ Zivcnost | SpolFaktor, 
            ylab = "Dosežek na izpitu v %", 
            xlab = "Živčnost pred izpitom", 
            smooth = FALSE, 
            data = podatki)

podatki <- podatki[ , c(-1, -5, -6)]
#podatki <- podatki[ , colnames(podatki) %in% c("Ponavljanje", "Izpit", "Zivcnost") ] #Alternativni zapis 1
#podatki <- podatki[ , !(colnames(podatki) %in% c("ID", "Spol", "SpolFaktor")) ] #Alternativni zapis 2

library(car)
scatterplotMatrix(podatki, 
                  smooth = FALSE)

jhhhjj kjlhkjjg hkhjkhkhk jgjhjjkl kdjsdjjjs lskskskjsj jshjshshsj jsjs

s s s s s s s s s s s

mean(podatki$Izpit)

## [1] 56.57282

ssllsa asal

mean(podatki$Zivcnost)

## [1] 74.34367

sklks kks

mean(podatki$Ponavljanje)

## [1] 19.85437