Re: [問題] 先分組後迴圈

看板R_Language作者celestialgod (天)時間9年前 (2016/10/10 16:35)推噓3(3推 0噓 0→)

留言3則, 1人參與討論串2/2 (看更多)

※ 引述《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