r语言 - 置信区间错误码{的函数

Question

我最近和你一起做了以下函数(内容暂时不重要)这似乎是正确的，但当我尝试处理它时，出现以下错误:错误:意外的'}'在"}">。你知道我做错了什么吗?

这是函数，提前谢谢你(顺便说一句，我已经检查了每个括号):

编辑:现在它工作了:

CI <- function(x, s, z, Fall) {
if (Fall == "Fall1") {
result <- mean(x) + c(-1,1)* qnorm(1-z/2)*(s/sqrt(length(x)))

} else if (Fall == "Fall2") {
result <- mean(x) + c(-1,1)* qt(p=1-a/2, df=length(x)-     1)*(sd(x)/sqrt(length(x)))

} else if (Fall == "Fall3") {结果& lt;意味着(x) + c (1,1)qnorm (1 - z/2(s/√(长度(x))))

} else if (Fall == "Fall4"){结果& lt;——意味着c (x) + (1, 1)qt (p = 1 a/2, df =长度(x) 1)sd (x)/√(长度(x)))

} else {result<-NA}

返回(结果)}

CI (x = x = 15, z = 0.05, =下跌"Fall1")

Answer 1

有几个错误- 1)else不会有条件检查，而是使用else if, 2)，比较的值应该引用"Fall1"

CI <- function(x, mean, sd, z, Fall)
{
if (Fall == "Fall1") {
result <- mean(x) + c(-1, 1) * qnorm(1 - z / 2) * (sd / sqrt(length(x)))


} else if (Fall == "Fall2") {
result <-
mean(x) + c(-1, 1) * qt(p = 1 - a / 2, df = length(x) - 1) * (sd(x) / sqrt(length(x)))


} else if (Fall == "Fall3") {
result <- mean(x) + c(-1, 1) * qnorm(1 - z / 2 * 
(sd / sqrt(length(x))))


} else if (Fall == "Fall4") {
result <-
mean(x) + c(-1, 1) * qt(p = 1 - a / 2, df = length(x) - 1) * (sd(x) / sqrt(length(x)))
}
else {
result <- NA_real_
}


return(result)

}