Importing the data

data()
data("USArrests")

mydata <- force(USArrests)
summary(mydata)
##      Murder          Assault         UrbanPop          Rape      
##  Min.   : 0.800   Min.   : 45.0   Min.   :32.00   Min.   : 7.30  
##  1st Qu.: 4.075   1st Qu.:109.0   1st Qu.:54.50   1st Qu.:15.07  
##  Median : 7.250   Median :159.0   Median :66.00   Median :20.10  
##  Mean   : 7.788   Mean   :170.8   Mean   :65.54   Mean   :21.23  
##  3rd Qu.:11.250   3rd Qu.:249.0   3rd Qu.:77.75   3rd Qu.:26.18  
##  Max.   :17.400   Max.   :337.0   Max.   :91.00   Max.   :46.00
library(psych)
mydata2 <- force(sat.act)

Calculate the discriptive statistics for variables ACT, SAT, SATQ, sepparate by gender

mydata2$gender <- factor (mydata2$gender,
                          levels = c(1, 2),
                          labels = c("M", "F"))

POGLEJ TA DRUGI DEL KI TI TAKRAT NI ŠTIMAL