※ 引述《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語言的社團
看置底文