#例3.2a

a <- c(2,3,8,5,7)

b <- c(5,5,4,5,6)

​

var(a)#これは第５章で説明

variance <- function(x) var(x)*(length(x)-1)/length(x)  
variance(a)#分散

sqrt(variance(a))#標準偏差

​

var(b)

variance(b)#分散

sqrt(variance(b))#標準偏差

 

 

#例3.2b

x <- c(16,14,15,18,15,14,17,18,15,20)

variance(x)#分散

sqrt(variance(x))#標準偏差

​