R程序通过索引从向量返回值

Question

我写了一个函数来返回医院名称以获得疾病的最低死亡率，但它没有给我想要的输出，请任何人检查代码并告诉我其中有什么问题？

best <- function(state, outcome) {
tab <- read.csv("outcome-of-care-measures.csv")
attack <- as.numeric(tab[,11])
failure <- as.numeric(tab[,17])
pneumonia <- as.numeric(tab[,23])
hospitals <- as.vector(tab[,2])

diseases <- c("heart attack", "heart failure","pneumonia")

if(!state %in% tab$State){
    stop("invalid state")

}
else if(!outcome %in% diseases){
    stop("invalid outcome")
}
else{
    if(outcome == diseases[1]){

        min <- min(attack, na.rm = TRUE)
        index <- which(attack == min)
        hospitalname <- hospitals[index]
    }
}

hospitalname
}

Answer 1

else 需要使用稍有不同。它不能开始一个新行，而是让每个 else 语句像......

if(){
blah...blah...
} else {}

这应该会有所帮助。如果没有测试脚本和对意图的描述，就很难提供帮助。