|
|
小專題與實例觀摩1.
「幸福指數分析」
[link] http://cs.chu.edu.tw/var/file/37/1037/img/202/form_88_7507738_83170.pdf
[download]
以下資料來源： 中央研究院 AI 跨域領袖營: R 語⾔專題實作練習 2017/09/22(五) 授課教師：吳漢銘 (臺北⼤學統計學系副教授)
http://www.hmwu.idv.tw/web/Rcourse/20170922/R-exercise.pdf
[download]
2.
某學生分析空氣品質資料 airquality 之風速 (Wind) 與溫度 (Temp) 的關係，他採⽤迴歸分析及變共 數分析，步驟如下:
lm.obj <- lm(airquality$Wind ~ airquality$Temp)
lm.anova <- anova(lm.obj)
lm.summary <- summary(lm.obj)
(a) 物件 lm.anova 是屬於何種類別，其儲存結構如何?
(b) 物件 lm.summary 有哪⼀些屬性可供存取? 試取出 R2 值。(提⽰: r.squared)
3.
某班學生有一考試成績和性別紀錄如下
(資料是依照學生座號 1、2、· · · 依序紀錄; NA 代表缺考):
成績: 30, 49, 95, NA, 54, NA, 61, 85, 51, 22, 0, 0
性別: m, f, f, m, f, m, f, m, m, f, f, m
(a) 本班共有多少學⽣? 男女⽣各多少⼈?
(b) 此科⽬成績最⾼分及最低分是幾分?
(c) 計算此科⽬成績平均及標準差。男女⽣成績平均各是多少?
(d) 老師欲將成績依序做以下調整: (i) 缺考以 0 分計;(ii) 每⼈加 10 分 (缺考者不加分，超過 100 分以 100 分計)。印出調整後的分數。
(e) 以調整後的分數計, 列出及格 (60 分以上，含) 同學的座號。共有幾位?
4.某班某次考試之成績 (ScoreData) 如下，
(a) 試計算每⼈之平均分數。
(b) 若三科成績 (math， english，algebra) 計算平均之權重依序為 (0.5, 0.2, 0.3), 試計算每⼈之加權平均分數。
(提示: apply, mean, weighted.mean)
set.seed(123456789)
math <- sample(1:100, 10, replace=T); english <- sample(1:100, 10, replace=T)
algebra <- sample(1:100, 10, replace=T); ScoreData <- cbind(math, english, algebra)
5.
台灣公民投票 2018
https://rfrd-tw.github.io/
|
|
