﻿rm(list = ls())  # ワークスペースをクリア
x <- binom.test(210, 300, 0.7)  # 二項検定を実行
x$conf.int  # 二項検定の実行結果から信頼区間の項目conf.intを取得