燈下黑

基本上...這是件無聊之舉...

突然想到把之前準備考試、寫了n年都沒寫完過的統計考題拿來廢物利用一下，順便練習R....囧

等哪天廢物利用完了就可以丟了，省得放在書櫃佔位子...

題目搞不好會有版權問題，所以就不打了...(其實是懶...=_=)

-------------------------------------------------------

>data <- c(42,53,61,20,28,48,47,42,38,39,33,27,36,40,44,44,35,35,64,52,31,43,56,23,46)           #建立數值數列

>stem(data) #莖葉圖

The decimal point is 1 digit(s) to the right of the |


  2 | 0378
  3 | 1355689
  4 | 022344678
  5 | 236
  6 | 14


>data=sort(data) #資料排序

> data
 [1] 20 23 27 28 31 33 35 35 36 38 39 40 42 42 43 44 44 46 47 48 52 53 56 61 64

>median(data) #中位數
[1] 42


> quantile(data, 0.25) #第一四分位數
25% 
 35 


>quantile(data,0.6) #60百分位數
60% 
43.4 

> mean(data) #平均數
[1] 41.08

> var(data) #變異數
[1] 123.2433

> range(data) #範圍
[1] 20 64

********************

其他統計指令

min(data) #最小值

max(data) #最大值

sum(data) #加總

length(data) #個數

sqrt(var(data)) #標準差

summary(data) #統計摘要值