適当にxとyのデータを作った。
range(), diff(), var(), sd(), summary(), barplot(), par(), hist()を使用。
最後は、箱ひげ図とヒストグラムを載せておく。
> x <- c(10,10,20,15,25,29,40,50,42,56,32,64,34,32) > length(x) [1] 14 > mean(x) [1] 32.78571 > > y <- c(32,23,34,45,67,32,13,67,85,32,64,32,15,24) > length(y) [1] 14 > mean(y) [1] 40.35714 > > range(x)#最大値と最小値 [1] 10 64 > diff(range(x))#最大値と最長値の幅 [1] 54 > range(y) [1] 13 85 > diff(range(y)) [1] 72 > > var(x); sd(x)#分散と標準偏差 [1] 272.489 [1] 16.50724 > var(y); sd(y) [1] 482.5549 [1] 21.96713 > > summary(x)#quantileも求めたいならこの関数 Min. 1st Qu. Median Mean 3rd Qu. Max. 10.00 21.25 32.00 32.79 41.50 64.00 > summary(y) Min. 1st Qu. Median Mean 3rd Qu. Max. 13.00 26.00 32.00 40.36 59.25 85.00 > > boxplot(x,y)#箱ひげ図 | |
|


0 件のコメント:
コメントを投稿