3  Variability

Range=max(x)min(x)

Variance=σ2=1Ni=1N(xix¯)2

StandardDeviation=σ=Variance

ct <- c(1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,4,5,5,6,6,14)
mean_ct <- mean(ct)

vr <- sum((ct-mean_ct)^2)/(length(ct)-1)
sd <- sqrt(vr)