﻿rm(list = ls())  # ワークスペースをクリア
# Xは不良品の個数とし，確率P(X > q)を表示する．
# 二項分布を利用
pbinom(q = 2, size = 200, prob = 0.01, lower.tail = FALSE)  # 計算方法１
1 - pbinom(q = 2, size = 200, prob = 0.01)  # 計算方法２
# ポアソン近似を利用
ppois(q = 2, lambda = 200 * 0.01, lower.tail = FALSE)  # 計算方法１
1 - ppois(q = 2, lambda = 200 * 0.01)  # 計算方法２