用于通过索引从向量返回值的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

其他需要使用略有不同。它无法启动新行，而是拥有其他语句，如...

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

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