Variance and Standard Deviation

require(UsingR)

Loading required package: UsingR

Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
logical.return = TRUE, : there is no package called 'UsingR'

require(HistData)

Loading required package: HistData

Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
logical.return = TRUE, : there is no package called 'HistData'

\(sample variance=s^2=\frac{1}{n-1}‎‎\sum_i(x_i - \bar{x})^2\)

wts <- c(38, 43, 48, 61, 47, 24, 29, 48, 59, 24, 40, 27)

sort(wts)

 [1] 24 24 27 29 38 40 43 47 48 48 59 61