確率ベクトルのNAsを置換する

Question

NAの値をRの確率ベクトルに取り除く良い方法はありますか？私はいくつかのサンプリングをしていますが、確率ベクトルにはNAの値があることがあります。これは、母集団に特定の値が出現しないためです。以下のコードは、問題を示しています

population <- c("A", "B", "B") 
probs <- prop.table(table(population)) 
action <- c("A", "C", "D") 
test <- sample(action,1,prob=c(probs[1], probs[2], probs[3])) 

Answer 1

あなたは​​の対応する要素の確率を使用してactionの各要素の確率を指定したいようですが、私には見えます。あなたがインデックス化、具体的には、probsベクトルをインデックス文字でこれを行うことができますprobs​​と：

set.seed(1L); 
population <- c('A','B','B'); 
probs <- prop.table(table(population)); 
action <- c('A','C','D'); 
test <- sample(action,1L,prob=probs[population]); 
test; 
## [1] "C" 

probsは2つのだけの要素を持っているので、あなたのコードが失敗しています。 probs[3]はNAを返します。また、probs[1:3]がc(probs[1],probs[2],probs[3])のより簡潔な因数分解であることにも注意してください。