podatki <- data.frame("ID"= c(1, 2, 3, 4, 5),

                      "Visina" = c(170, 175, 177, 180, 182),

                      "Starost" = c(20, 22, 22, 23, 24),

                      "Spol" = c("Z", "Z", "M", "M", "M"))
mean (podatki$Visina)
## [1] 176.8
summary (podatki[ ,c(-1, -4) ])
##      Visina         Starost    
##  Min.   :170.0   Min.   :20.0  
##  1st Qu.:175.0   1st Qu.:22.0  
##  Median :177.0   Median :22.0  
##  Mean   :176.8   Mean   :22.2  
##  3rd Qu.:180.0   3rd Qu.:23.0  
##  Max.   :182.0   Max.   :24.0
podatki$teza <- c(80, 70, 85, 88, 90)

IZRAČUNAJ BMI

podatki$BMI <- round(podatki$teza / (podatki$Visina/100)^2,2)
#install.packages("pastecs"            )
library(pastecs)
round(stat.desc(podatki[ , c(-1, -4)]), 3)
##               Visina Starost    teza     BMI
## nbr.val        5.000   5.000   5.000   5.000
## nbr.null       0.000   0.000   0.000   0.000
## nbr.na         0.000   0.000   0.000   0.000
## min          170.000  20.000  70.000  22.860
## max          182.000  24.000  90.000  27.680
## range         12.000   4.000  20.000   4.820
## sum          884.000 111.000 413.000 132.000
## median       177.000  22.000  85.000  27.160
## mean         176.800  22.200  82.600  26.400
## SE.mean        2.083   0.663   3.572   0.891
## CI.mean.0.95   5.784   1.842   9.918   2.473
## var           21.700   2.200  63.800   3.968
## std.dev        4.658   1.483   7.987   1.992
## coef.var       0.026   0.067   0.097   0.075