rankhospital <- function(state = factor(), outcome = factor(), num = factor()) {
#read data
caremeasures <- read.csv("D:/data science specialization/course stuff/rprogw3/outcome-of-care-measures.csv", na.strings = "NA", stringsAsFactors = FALSE)
#separate required columns
requiredOutcomes <- caremeasures[11, 17, 23]
#assign columns names
names(requiredOutcomes[3]) <- "heart attack"
names(requiredOutcomes[4]) <- "heart failure"
names(requiredOutcomes[5]) <- "pneumonia"
arrangedData <- order(requiredOutcomes[caremeasures$State == state, c(caremeasures$Hospital.Name, outcome)])
if (num == "best"){
result <- arrangedData[1, 1]
return(result)
}
else if (num == "worst"){
result <- arrangedData[nrow(arrangedData[,1]),1]
return(result)
}
else
result <- arrangedData[num, 1]
return(result)
}
此代码应该返回与该功能输入相对应的单个医院的名称,但是我收到一个错误说明:
Error in requiredOutcomes[caremeasures$State == state, c(caremeasures$Hospital.Name, :
incorrect number of dimensions
我没有您的数据,所以我会推测导致问题的原因。