﻿rm(list = ls())  # ワークスペースをクリア
# サンプルデータのパラメータ設定
success <- 15 ; trials <- 500 ; p0 <- 0.05
# 有意水準
alpha <- 0.05
# p値を計算
p_val <- pbinom(success, trials, p0)
# 検定結果の表示
if (p_val < alpha) {
  cat("p値", p_val, "が有意水準", alpha, "未満であるから帰無仮説を棄却\n")
} else {
  cat("p値", p_val, "が有意水準", alpha, "以上であるから帰無仮説を受容\n")
}