Any help on this issue will be greatly appreciated. Spent days sitting alone in
a remote corner of the world--> Patiala, Punjab, India.. trying to do this!
---------------------------------------------------------------------------------------------------------------
setwd("C:/Documents and
Settings/Administrator/Desktop/Coursera/ProgrammingAssignment3/ProgrammingAssignment3")
my_disease=0
my_min_index=0
best <- function(my_state, my_outcome) {
outcome_data = read.csv("outcome-of-care-measures.csv",na.strings="Not
Available")
my_vector= which(outcome_data[,"State"]==my_state)
my_initial_vector=my_vector[1]
my_length=length(my_vector)
my_final=my_length+my_initial_vector
# return(my_initial_vector)
if (my_outcome == "heart attack") {
my_disease=11
outcome_data[ ,my_disease] <- as.numeric(outcome_data[ ,my_disease])
my_attack_lowest = min(outcome_data[my_initial_vector:my_final, 11],na.rm=TRUE)
#my_attack_lowest_scalar = my_attack_lowest[1]
}
for (i in 1:my_length) {
my_check_outcome= outcome_data[(my_initial_vector+i-1), 11]
#my_check_outcome_scalar= my_check_outcome[1]
#my_check_outcome= outcome_data[which(outcome_data[,"State"]==my_state),11]
# my_check_outcome<-as.numeric(my_check_outcome)
if (my_check_outcome_scalar==my_attack_lowest_scalar) {
my_min_index = i
# my_min_index
return(subset(outcome_data$Provider.Number==my_min_index,
outcome_data$Hospital.Name))
}
return()
}
if (my_outcome == "heart failure") {
my_disease=17
}
if (my_outcome == "pneumonia") {
my_disease=23
}
#outcome_data[my_min_index,"Hospital.Name"]
return()
}
#outcome_data[my_min_index,"Hospital.Name"]-------------------------------------------------------------------------------------------------------------
Aditya
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
