IT EXPLAINED 數位轉型攻略 VII
2025臺灣資安大會 Keynote講者陣容
Cloud Future Built Today
技術問答
技術文章
iT 徵才
Tag
聊天室
2024 鐵人賽
登入/註冊
問答
文章
Tag
邦友
鐵人賽
搜尋
0
R語言相關問題!急!
r語言
初學者求助
lisalisa
2020-04-21 01:12:49
‧
5772 瀏覽
分享至
請模擬連續投擲一枚公正的銅板,請問在你的模擬中,投擲幾次才會至少出現三次正面且五次反面?
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
邀請回答
追蹤
檢舉
×
邀請回答
輸入邀請回答者的帳號或暱稱
已邀請的邦友
0
/5
froce
iT邦大師 1 級 ‧
2020-04-21 07:22:51
檢舉
等期中考周過完我想你就不急了,又多了一年可以準備
等期中考周過完我想你就不急了,又多了一年可以準備
修改
sam989798
iT邦新手 4 級 ‧
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有時會變成全形,無法執行
修改
登入發表討論
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
檢舉

修改
登入發表回應
我要發表回答
立即登入回答
iThome鐵人賽
參賽組數
1064
組
團體組數
40
組
累計文章數
22202
篇
完賽人數
600
人
看影片追技術
看更多
極速開發網頁,現在就拓展你的Bootstrap元件庫吧
iThome鐵人賽
|
34 分
運用 POWERS 系統性思考框架助力組織創新,提升導入成效
Hello World Dev Conference
|
49 分
DevOps & Product Strategy in Banking
DevOpsDays
|
24 分
HashiCorp Vault 自建金鑰管理最佳入坑姿勢
DevOpsDays
|
40 分
Synology Security Development Lifecycle
臺灣資安大會
|
34 分
SaaS 到底貴不貴?淺談 SaaS 如何提升企業的成本效益
Cloud Summit 臺灣雲端大會
|
24 分
Leveraging AI in Software Quality
DevOpsDays
|
40 分
「企業混合雲實戰攻略三策」Data services & ML with Azure Hybrid Solution 、「企業混合雲實戰攻略三策」Microsoft Azure Stack HCI 在 HPE 伺服器上的整合優勢
IT EXPLAINED
|
41 分
Centralized CI/CD 策略的探索與實踐
Hello World Dev Conference
|
37 分
ESG 數位永續發展與智慧節能管理
2023 數位政府高峰會
|
34 分
熱門tag
看更多
15th鐵人賽
16th鐵人賽
13th鐵人賽
14th鐵人賽
12th鐵人賽
11th鐵人賽
鐵人賽
2019鐵人賽
javascript
2018鐵人賽
python
2017鐵人賽
windows
php
c#
windows server
linux
css
react
vue.js
熱門問題
被掏寶大量連到DNS
有可能自己做出一個用手機就能掃描辨識的工具嗎?
無障礙網頁AA標章到底有多難達成
推薦好用企業mail
team會議預設開啟方式
請教專業先進大大們:GPT vs. Monica,哪個APP軟體更好用?
<已解決>norton 出現"與這個網站連線不安全"訊息
wsus 的susdb mdf 100多GB 到底該如何瘦身??
HP MSA 2060 做 RAID 6 的時間
HP印表機列印圖片會出錯
【免費線上報名即將額滿】4/8 18:00 截止,現場報名將收費,錯過不再免費!
立即標記行事曆,7/2 探索 AI 與雲端的無限未來!
Windows 10支援倒數,聯繫微軟夥伴諮詢
全新登場!CYBERSEC ARENA:War Game遊戲中體驗資安威脅應對,提升戰略思維與決策力!
GenAI 加速企業創新落地,更需要全新 IT 戰略
DevOpsDays盛會早鳥優惠倒數,精彩議程講者陣容敬請期待!
熱門回答
有可能自己做出一個用手機就能掃描辨識的工具嗎?
推薦好用企業mail
ERP 與電子簽核整合詢問
無障礙網頁AA標章到底有多難達成
HP印表機列印圖片會出錯
熱門文章
[Java的20堂課]L4-後端框架
VMware 入門筆記 - 5 - 調整虛擬機畫面大小與安裝 VMware Tools
Vscode 入門筆記 - 3 - 開發設定與擴充套件
[Java的20堂課]L5-後端框架+例外處理
2025-03-23 Vigor Router Firewall 一直重新開機解決 SOP
×
標記使用者
輸入對方的帳號或暱稱
Loading
找不到結果。
標記
{{ result.label }}
{{ result.account }}