期待値の計算方法がわからないので、参考になれば幸いです
ロットには17品目が含まれており、各品目は2人の品質保証エンジニアによる検査の対象です。各エンジニアは、ランダムに独立して、ロットから4つのアイテムを選択します。以下によって選択されるアイテムの予想数を決定します。
a。両方のエンジニアb。どちらのエンジニアc。ちょうど1人のエンジニア。
期待値の計算方法がわからないので、参考になれば幸いです
ロットには17品目が含まれており、各品目は2人の品質保証エンジニアによる検査の対象です。各エンジニアは、ランダムに独立して、ロットから4つのアイテムを選択します。以下によって選択されるアイテムの予想数を決定します。
a。両方のエンジニアb。どちらのエンジニアc。ちょうど1人のエンジニア。
回答:
これは、インジケーター変数の使用に関する演習です。インジケータが値を持っています ある条件が成立し、値が さもないと。確率と期待に関する一見困難な問題は、関係する確率変数が独立していない場合でも、インジケーターと期待の線形性を活用する簡単な解決策を持つことができます。これらのアイデアに不慣れな方のために、以下に詳細を示します。
エンジニアを「X」と「Y」と呼びます。によるモデルXの選択 インジケータ変数 、 どこ
同様にインジケーター変数を定義する Yの選択。
問題の条件を代数的に表すことができます。
によって選択された総数 です
明らかにすべて 変数は同じように分散されます。しましょう彼らの共通の期待である。なぜなら
私たちは推測します
変数は独立していませんが、 から独立していると仮定されます 。
両方で選択されたアイテムの総数は、 。したがって、予想される数は
の独立 そして それぞれを表現するために必要でした の製品として そして 。
どちらもが選択したアイテムの総数は、 。すべてから すべてから独立しています 、(a)とまったく同じ方法が適用されます。唯一の変化は に置き換えられます 。値は
これは(a)または(b)のように解決できます。 Xだけで選択されるチャンスとして Yだけが選択する確率として。答えはこれらの(ばらばらの)イベントの合計であり、 。
ショートカット(または作業のチェック)は、すべての項目が両方のカテゴリのいずれかに正確に分類されるか、どちらにも分類されないか、または正確に1つに分類されることに注意することです。したがって、答えは合計()および(a)と(b)の回答の合計:
これらの選択の10,000(たとえば)シミュレーションを実行して、結果を追跡しましょう。(a)両方で選択されたアイテムの平均数、(b)どちらでも選択されなかったアイテムの平均数、(c)1つだけで選択されたアイテムの平均数を出力できます。この出力の下に、参照として、(a)、(b)、および(c)で与えられた回答を印刷してみましょう。効率を上げようとはしません。目的は、説明されているように選択プロセスをモデル化し、算術的なトリックを行わずにイベントを直接カウントアップすることです。以下は、R
約1秒しかかからないが、かなり目立つ方法でそれを行うコードです。
n.sim <- 1e4 # Number of iterations
n <- 17 # Number of items
k <- 4 # Numbers chosen by each engineer
set.seed(17) # Creates reproducible output
sim <- replicate(n.sim, {
x <- sample.int(n, k) # X chooses `k` items
y <- sample.int(n, k) # Y chooses 'k' items
x.and.y <- intersect(x,y) # Find those chosen by both
not.x.and.not.y <- setdiff(1:n, union(x,y)) # ... .... chosen by neither
x.only <- setdiff(x, y) # ... .... chosen only by x
y.only <- setdiff(y, x) # ... .... chosen only by y
c(Both=length(x.and.y), # Count those chosen by both
Neither=length(not.x.and.not.y), # Count those chosen by neither
One=length(x.only) + length(y.only) # Count those chosen by one
)
})
signif(rbind(Simulation=rowMeans(sim), # Average the simulations
Theory=c(k^2/n, (n-k)^2/n, n-(k^2+(n-k)^2)/n)), 4) # Give theoretical values
2行の出力(多くのシミュレートされた試行の平均と以前に与えられた理論的な回答)は、回答の正確さをサポートするのに十分近いです。
Both Neither One
Simulation 0.9315 9.932 6.137
Theory 0.9412 9.941 6.118