等期中考周過完我想你就不急了，又多了一年可以準備

加油 翻翻書 問問同學

看到你的問題我想考試已經考完了；但趁著要開學前無聊的我將您的題目做了一遍，你們老師題目看起來很偉大，但做起來沒有哪麼偉大，第一次看到我也被你的題目嚇到!若是高手做的話只需10分鐘就解決，但我還是花了1小時30分(被題目嚇到!所有學生的通病)

第一題：請模擬連續投擲一枚公正的銅板，請問在你的模擬中，投擲幾次才會至少出現三次正面且五次反面？
ANS:六次
set.seed(8)
sample(1:2,8,replace = TRUE) #Ans:6次
這一題我覺得你的老師避免同學互抄的設計，因為程式每次跑出來的結果都不同。

2.請產生自動評分器，隨機抽樣一個介於0至100之間的數字，若出現0至59分，則R輸出"Fail"，60至69分為"Fair"，70至79分為"Good"，80分以上為"Excellent"。
ANS:
x <- sample(0:100,1,replace = TRUE)

if (x<=59){
message("Fail");
} else if (x %in% c(60:69) ){
message("Fair");
} else if (x %in% c(70:79) ){
message("Good");
} else if (x >80) {
message("Excellent");
}

3.請以下列語法產生30位同學的四次考試成績 id <- 1:30 exam1 <- sample(40:90, size = 30, replace = T) exam2 <- sample(40:90, size = 30, replace = T) exam3 <- sample(40:90, size = 30, replace = T) exam4 <- sample(40:90, size = 30, replace = T)

ANS:
程式前置變數設定
id <- 1:30
exam1 <- sample(40:90, size = 30, replace = T)
exam2 <- sample(40:90, size = 30, replace = T)
exam3 <- sample(40:90, size = 30, replace = T)
exam4 <- sample(40:90, size = 30, replace = T)
merage <- cbind(id,exam1,exam2,exam3,exam4)

3.1計算每位同學的四次考試平均分數，並存進mean向量中。
ANS:
mean <- rowMeans(merage)

3.2計算mean之平均數、標準差、最大值、最小值
ANS:
summary(mean)
sd(mean)

3.3判斷每位同學的平均成績是否及格，60分以上及格(1)、未滿60分不及格(0)，並將結果存進pass向量中。(Hint: 可利用if與for迴圈)
ANS:
pass <- ifelse(mean>=60,"1","0")

3.4將id, 四次考試成績, mean, pass等變項存成score資料框(data frame)。
ANS:
score <- data.frame(id,exam1,exam2,exam3,exam4,mean,pass)

PS:若執行複製貼上的話要注意雙引號 和 <- 貼到R有時會變成全形，無法執行