iT邦幫忙

0

R語言相關問題!急!

  1. 請模擬連續投擲一枚公正的銅板,請問在你的模擬中,投擲幾次才會至少出現三次正面且五次反面?
    2.請產生自動評分器,隨機抽樣一個介於0至100之間的數字,若出現0至59分,則R輸出"Fail",60至69分為"Fair",70至79分為"Good",80分以上為"Excellent"。
  2. 請以下列語法產生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)
    (1) 計算每位同學的四次考試平均分數,並存進mean向量中。
    (2) 計算mean之平均數、標準差、最大值、最小值
    (3) 判斷每位同學的平均成績是否及格,60分以上及格(1)、未滿60分不及格(0),並將結果存進pass向量中。(Hint: 可利用if與for迴圈)
    (4) 將id, 四次考試成績, mean, pass等變項存成score資料框(data frame)。
froce iT邦大師 1 級 ‧ 2020-04-21 07:22:51 檢舉
等期中考周過完我想你就不急了,又多了一年可以準備
sam989798 iT邦新手 5 級 ‧ 2020-04-21 09:11:46 檢舉
加油 翻翻書 問問同學
yujoe iT邦新手 5 級 ‧ 2020-09-01 11:03:25 檢舉
看到你的問題我想考試已經考完了;但趁著要開學前無聊的我將您的題目做了一遍,你們老師題目看起來很偉大,但做起來沒有哪麼偉大,第一次看到我也被你的題目嚇到!若是高手做的話只需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有時會變成全形,無法執行
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

2 個回答

0
石頭
iT邦研究生 4 級 ‧ 2020-04-21 08:09:35

找同學抄答案,選我正解

1
海綿寶寶
iT邦大神 1 級 ‧ 2020-04-21 08:41:59
尼克 iT邦大師 1 級 ‧ 2020-04-21 10:10:27 檢舉

/images/emoticon/emoticon01.gif

我要發表回答

立即登入回答