﻿# パッケージがインストール済なら次の行は不要
# import Pkg; Pkg.add("HypothesisTests")
using HypothesisTests
# サンプルデータのパラメータ設定
success = 15
trials = 500
p0 = 0.05
# 有意水準
alpha = 0.05
# 二項検定を実行
result = BinomialTest(success, trials, p0)
p_value = pvalue(result; tail = :left)  # p値
# 検定結果の表示
if p_value < alpha
    println("p値", p_value, "が", alpha, "未満であるから帰無仮説を棄却")
else
    println("p値", p_value, "が", alpha, "以上であるから帰無仮説を受容")
end