推 mdmdmdmd: 哇！好簡潔。看來我還要學很多 10/10 17:19
推 mdmdmdmd: 再請問一下要怎麼知道有幾次是TRUE 10/10 18:19
推 mdmdmdmd: 沒問題了謝謝您 10/10 19:35
※ 引述《mdmdmdmd (bluebubble)》之銘言：
: - 問題: 當你想要問問題時，請使用這個類別
: 新手(沒寫過程式，R 是我的第一次)
: 抱歉又來打擾各位板友，再次麻煩各位了
: [問題敘述]:
: 首先我有先做出一個function功能是抽出一個n位數，每一位數都從1到4所組成。
: 然後我想要每次做完都判斷是否這個n位數有含1，2，3，4的每個數。最後再抽1000個n位
: 數跟判斷有沒有含。
: 我覺得應該可以在一個function內完成，只是我資質駑鈍，都想不出來QQ
: [程式範例]:
: g<-function(m){
: for(s in 1:m){
: A<-""
: A<-sample(1:4,1,replace=TRUE)
: if(A==1) A<-"T";
: if(A==2) A<-"R";
: if(A==3) A<-"U";
: if(A==4) A<-"E";
: f<-print(A)
: }
: }
: g(6)
: any(g(6)%in%c("T","R","U","E"))
g <- function(replicate, n){
sapply(rep(n, replicate), function(m){
all(table(factor(sample(1:4, m, TRUE), levels = 1:4))) > 0
})
}
g(1000, 6) # 1000個6位數有沒有包含1~4
或是
g <- function(replicate, n){
sapply(rep(n, replicate), function(m){
all(as.character(1:4) %in% names(table(sample(1:4, m, TRUE))))
})
}
g(1000, 6)
理應第二個會比較快，用factor會比較慢
: 這是我目前做出來的成果，另外想請問有沒有甚麼R語言的社團
看置底文
--
R資料整理套件系列文：
magrittr #1LhSWhpH (R_Language) http://tinyurl.com/j3ql84c
data.table #1LhW7Tvj (R_Language) http://tinyurl.com/hr77hrn
dplyr(上) #1LhpJCfB (R_Language) http://tinyurl.com/jtg4hau
dplyr(下) #1Lhw8b-s (R_Language)
tidyr #1Liqls1R (R_Language) http://tinyurl.com/jq3o2g3
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.235.43.110
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1476088537.A.E0A.html
※ 編輯: celestialgod (36.235.43.110), 10/10/2016 16:40:20
※ 編輯: celestialgod (36.235.43.110), 10/10/2016 16:40:39