geyser

mean(geyser$duration)

mean(geyser$waiting)

median(geyser$duration)

median(geyser$waiting)

broj.ponavljanja <- table(geyser$duration)
sortiran.broj.ponavljanja <- sort(broj.ponavljanja)
mod <- sortiran.broj.ponavljanja[length(sortiran.broj.ponavljanja)]
mod

quantile(geyser$duration)

quantile(geyser$duration, c(0,0.25,0.5,0.75,1))

quantile(geyser$duration, c(0, 0.2,0.4, 0.6, 0.8, 1))

opseg.trajanja <- max(geyser$duration) - min(geyser$duration)
opseg.trajanja

opseg.trajanja <- range(geyser$duration)[2] - range(geyser$duration)[1]
opseg.trajanja

opseg.medju.kvartilima.trajanja <-  IQR(geyser$duration)
opseg.medju.kvartilima.trajanja

boxplot(geyser$duration)

boxplot(geyser$duration, horizontal = TRUE)


var(geyser$duration)

standardna.devijacija <- sqrt(var(geyser$duration))
standardna.devijacija

standardna.devijacija <- sd(geyser$duration)
standardna.devijacija

cov(geyser$waiting,geyser$duration)

cor(geyser$waiting,geyser$duration)

skewness(geyser$duration)

kurtosis(geyser$duration)