R入門07

練習問題

余計な物が写りこんでるが気にするな。

> mean(a)
[1] 112

> sqrt(sum((a-mean(a))^2)/length(a))
[1] 77.82031

> mean(b)
[1] 65
> sqrt(sum((b-mean(b))^2)/length(b))
[1] 31.70173

 

> (a-mean(a))/sqrt(sum((a-mean(a))^2)/length(a))
[1] -0.6682061 -0.1542014 -0.7967072 -0.9252084 -0.7967072  1.5163138
[7]  0.1028009  1.6448149  1.1308103 -1.0537096
> (b-mean(b))/sqrt(sum((b-mean(b))^2)/length(b))
[1] -0.4731602 -0.1577201 -0.7886004 -0.4731602  1.1040405  0.4731602
[7] -1.1040405 -1.4194807  1.1040405  1.7349208