技術問答
技術文章
iT 徵才
Tag
聊天室
2023 鐵人賽
登入/註冊
問答
文章
Tag
邦友
鐵人賽
搜尋
0
R語言相關問題!急!
r語言
初學者求助
lisalisa
2020-04-21 01:12:49
‧
5421 瀏覽
請模擬連續投擲一枚公正的銅板,請問在你的模擬中,投擲幾次才會至少出現三次正面且五次反面?
2.請產生自動評分器,隨機抽樣一個介於0至100之間的數字,若出現0至59分,則R輸出"Fail",60至69分為"Fair",70至79分為"Good",80分以上為"Excellent"。
請以下列語法產生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)。
回答
2
討論
3
邀請回答
追蹤
檢舉
×
邀請回答
輸入邀請回答者的帳號或暱稱
Loading
找不到結果。
已達邀請上限
邀請回答
{{ result.user.nickname }}
{{ result.user.account }}
已邀請的邦友
{{ invite_list.length }}
/5
取消邀請
{{ invite.nickname }}
{{ invite.account }}
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有時會變成全形,無法執行
看到你的問題我想考試已經考完了;但趁著要開學前無聊的我將您的題目做了一遍,你們老師題目看起來很偉大,但做起來沒有哪麼偉大,第一次看到我也被你的題目嚇到!若是高手做的話只需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.subject }}
{{ 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
中文版解答
英文版解答
回應
1
分享
檢舉
尼克
iT邦大師 1 級 ‧
2020-04-21 10:10:27
檢舉
![/images/emoticon/emoticon01.gif](/images/emoticon/emoticon01.gif)
修改
登入發表回應
我要發表回答
立即登入回答
iThome鐵人賽
參賽組數
1123
組
團體組數
52
組
累計文章數
23095
篇
完賽人數
656
人
看影片追技術
看更多
{{ item.subject }}
{{ item.channelVendor }}
|
{{ formatDate(item.duration) }}
直播中
熱門tag
看更多
15th鐵人賽
13th鐵人賽
14th鐵人賽
12th鐵人賽
11th鐵人賽
鐵人賽
2019鐵人賽
2018鐵人賽
javascript
2017鐵人賽
python
windows
php
c#
windows server
linux
css
程式設計
react
vue.js
熱門問題
目前IT會被AI取代嗎
API 行為有辦法攔截嗎?
桌機出現無預警自動關機狀況
請問大家克服壓力源的辦法
詢問取得訪客IP問題
關於基本伺服器防護
請問有沒有無線滑鼠內建無線麥克風的,懶得打字,想要直接用唸的搜尋.有沒有什麼好的方法?謝謝!!
請問EXCEL為什麼抓不到網頁資料
覆盤
windows 系統管理員帳戶被鎖定後,是否會影響由Administrator啟用的服務運作?
熱門回答
目前IT會被AI取代嗎
桌機出現無預警自動關機狀況
請問大家克服壓力源的辦法
請問有沒有無線滑鼠內建無線麥克風的,懶得打字,想要直接用唸的搜尋.有沒有什麼好的方法?謝謝!!
詢問取得訪客IP問題
熱門文章
一步一步安裝 VigorConnect v1.9.0 for Synology NAS Docker 容器
Y2K後的下一個挑戰 -- 2038
[C#] 湊零錢解法
[C#] 費氏數列解法
「天文學Python」如何在《獵星者旅店》中學會用Python取得亮星資料來繪製二維全天空星圖?
IT邦幫忙
×
標記使用者
輸入對方的帳號或暱稱
Loading
找不到結果。
標記
{{ result.label }}
{{ result.account }}