重构：函数
复制粘贴一次还可以，但重复三次通常说明有问题。
提供的代码为变量 x 和 y 计算近似的 95% 置信区间。
本练习是课程的一部分
R 防御式编程
练习说明
- 创建一个名为
ci()的函数，只接受一个名为values的参数，不设默认值。 - 让该函数返回 95% 置信区间。
交互式实操练习
通过完成这段示例代码来试试这个练习。
n <- length(x); m <- mean(x); s <- sd(x)
c(m - 1.96 * s / sqrt(n), m + 1.96 * s / sqrt(n))
n <- length(y); m <- mean(y); s <- sd(y)
c(m - 1.96 * s/sqrt(n), m + 1.96 * s/sqrt(n))
# Define a function to prevent pasting the code above
ci <- function(values) {
n <- length(values)
m <- ___
s <- ___
c(m - ___, m + ___)
}