Hey there! 很高兴你已经让函数能正常运行了～不过我还是帮你复盘下之前Error: unexpected '}'报错的可能原因，以及现在代码里需要优化的细节：

一、之前unexpected '}'报错的常见原因 #

虽然你说检查过括号，但这类报错通常和括号不匹配或语法格式问题有关：

• 可能是某个if/else块的代码缩进混乱，导致R解析时误判了括号的闭合位置；
• 也可能是输入代码时不小心多打/漏打了半个括号，或者括号前后混入了奇怪的空格/不可见字符。

二、当前代码里的潜在问题与修正 #

现在你的函数能运行，但存在几个语法和逻辑问题，我帮你梳理并修正：

1. 未定义的参数a：在Fall2和Fall4分支里用了a，但函数参数里只有z，结合调用时传入的z=0.05，这里应该把a替换为z；
2. 缺少乘法运算符*：Fall3和Fall4里的c(-1,1) qnorm(...)、z/2 (s/...)都缺少*，R不会自动识别隐式乘法；
3. 括号嵌套错误：Fall3里的qnorm(1-z/2 (s/sqrt(length(x))))括号位置错误，应该把(s/sqrt(...))作为独立的乘法项；
4. 参数s的冗余问题：Fall2和Fall4里用了sd(x)计算标准差，但函数参数里已经有s，如果允许用户手动传入标准差，应该统一用s，否则可以去掉s参数。

修正后的完整代码 #

CI <- function(x, s = sd(x), z, Fall) { 
  if (Fall == "Fall1") { 
    result <- mean(x) + c(-1,1)* qnorm(1 - z/2) * (s / sqrt(length(x))) 
  } else if (Fall == "Fall2") { 
    # 替换未定义的a为z，用参数s代替sd(x)保持一致性
    result <- mean(x) + c(-1,1)* qt(p = 1 - z/2, df = length(x)-1) * (s / sqrt(length(x))) 
  } else if (Fall == "Fall3") { 
    # 补充缺失的*，修正括号位置
    result <- mean(x) + c(-1,1)* qnorm(1 - z/2) * (s / sqrt(length(x))) 
  } else if (Fall == "Fall4"){ 
    # 补充缺失的*，替换a为z，用s代替sd(x)
    result <- mean(x) + c(-1,1)* qt(p = 1 - z/2, df = length(x)-1) * (s / sqrt(length(x))) 
  } else {
    result <- NA 
  } 
  return(result) 
} 

# 测试调用
CI(x = x, s = 15, z = 0.05, Fall = "Fall1")

三、补充说明 #

• 我给s参数加了默认值sd(x)，这样用户既可以手动传入标准差，也可以让函数自动计算，更灵活；
• 如果Fall3和Fall1的逻辑本来就不同，你可以根据实际需求调整qnorm里的计算逻辑，只要保证语法正确就行～

内容的提问来源于stack exchange，提问作者seboe