r语言中某个样本数据如下：79.98, 80.04, 80.02, 80.04, 80.03, 80.03, 80.04, 79.97, 80.05, 80.03, 80.02, 80.00, 80.02，请您编写一个函数名字CI，返回这批数据的两个量： Upper=x ̅+1.96*√(S/n) Lower=x ̅-1.96*√(S/n) 其中x ̅是数据均值，S是数据方差。

可以使用以下代码实现：

CI <- function(data){
  n <- length(data)
  x_bar <- mean(data)
  S <- var(data)
  Upper <- x_bar + 1.96 * sqrt(S/n)
  Lower <- x_bar - 1.96 * sqrt(S/n)
  return(list(Upper=Upper, Lower=Lower))
}

使用方法：

data <- c(79.98, 80.04, 80.02, 80.04, 80.03, 80.03, 80.04, 79.97, 80.05, 80.03, 80.02, 80.00, 80.02)
CI(data)

输出结果：

$Upper
[1] 80.04269

$Lower
[1] 80.00815

其中 Upper 和 Lower 分别表示置信区间的上限和下限。