獲取新聞媒體誤差界限計算

場景：

• • 隨機抽樣調查 200 人，其中有 110 人表示由電視獲取新聞。

問題：

• • 求算母體中認為該方案較為優惠之比例。（0.5500）

  • 求算信心區間為 95% 下之誤差界限。（誤差界限=0.0689 [0.6189, 0.4811]）

  • 求算信心區間為 95% 下，誤差界限為 0.01 之樣本數。（380）

GNU R：

# 已知 sampleSize <- 200 numOfInterest <- 110 confidenceLevel <- 0.95 # 求算 sampleProportion <- numOfInterest / sampleSize sampleProportionStdDeviation <- sqrt(((sampleProportion * (1-sampleProportion)) / sampleSize)) alpha <- confidenceLevel + (1 - confidenceLevel) / 2 z <- qnorm(alpha) marginError <- z * sampleProportionStdDeviation print(sprintf("母體比例=%.4f 標準差=%.4f 信任區間=%.4f 誤差界限=%.4f [%6.4f, %6.4f]", sampleProportion, sampleProportionStdDeviation, confidenceLevel, marginError, sampleProportion + marginError, sampleProportion - marginError)) # 已知 marginError <- 0.05 sampleSize <- round(((z ^ 2) * (sampleProportion * (1-sampleProportion))) / (marginError ^ 2), 0) print(sprintf("樣本數=%d 標準差=%.4f 信任區間=%.4f 誤差界限=%.4f [%6.4f, %6.4f]", sampleSize, sampleProportionStdDeviation, confidenceLevel, marginError, sampleProportion + marginError, sampleProportion - marginError)) # 母體比例=0.5500 標準差=0.0352 信任區間=0.9500 誤差界限=0.0689 [0.6189, 0.4811] # 樣本數=380 標準差=0.0352 信任區間=0.9500 誤差界限=0.0500 [0.6000, 0.5000]