R programming week #4 assigment

最新推荐文章于 2023-11-22 00:19:41 发布

g00008

最新推荐文章于 2023-11-22 00:19:41 发布

阅读量951

点赞数 2

分类专栏： r 文章标签： R

本文链接：https://blog.csdn.net/baidu_34604003/article/details/52264813

版权

r 专栏收录该内容

7 篇文章 1 订阅

订阅专栏

## best.R

best <- function(state, outcome) {

## Read outcome data
data <- read.csv("~/Documents/F data/4 R programming/week 4/rprog%2Fdata%2FProgAssignment3-data/outcome-of-care-measures.csv",colClass = "character", na.strings = "Not Available")
## Check that state and outcome are valid
validOutcome = c("heart attack", "heart failure", "pneumonia")
if(!outcome %in% validOutcome) stop(print("invalid outcome"))

validState = unique(data[ ,7])
if(!state %in% validState) stop(print("invalid state"))

## convert outcome name into column name
fullColName <- c(11, 17, 23)
colName <- fullColName[match(outcome, validOutcome)]

## Return hospital name in that state with lowest 30-day death rate

data.state <- data[data$State == state, ]
idx <- which.min(as.double(na.omit(data.state[ ,colName])))
data.state[idx, "Hospital.Name"]
}