الاختبارات والفواصل والاعتماد

x <- c(1, 2, 3, 4, 5)
result <- t.test(x, mu = 0, alternative = "two.sided", conf.level = 0.95)
cat(sprintf("mean=%.1f; df=%.0f\n", unname(result$estimate), unname(result$parameter)))
cat(sprintf("interval=%.3f,%.3f\n", result$conf.int[1], result$conf.int[2]))

mean=3.0; df=4
interval=1.037,4.963

الفاصل أحادي العينة مشروط بافتراضاته لهذه القيم الاصطناعية، ولا يستهدف استدلالاً مجتمعياً فعلياً.

raw <- c(0.01, 0.04, 0.03)
adjusted <- p.adjust(raw, method = "holm")
cat("raw=", paste(raw, collapse = ","), "\n", sep = "")
cat("adjusted=", paste(adjusted, collapse = ","), "\n", sep = "")
cat("rejections at 0.05=", sum(adjusted <= 0.05), "\n", sep = "")

raw=0.01,0.04,0.03
adjusted=0.03,0.06,0.06
rejections at 0.05=1

تضم العائلة ثلاث قيم مقدمة؛ يغير التعديل قاعدة القرار ولا يصلح اختباراً غير صالح أو يغير الأثر.