В питоне, функция ввода используется вместе с присваиванием переменной. У меня есть код, в котором я назначаю ввод пользователя переменным исход и состояние, но R не возьмет функцию. Что эквивалентно этому в R, и, пожалуйста, покажите пример.
best <- function(state, outcome) {
#read file function
dataTable <- read.csv("outcome.csv", header = TRUE)
choice <- state
stateOfChoice <- dataTable[which(dataTable$state == choice),]
if (outcome == "heart attack"){
#subsetting,selecting column of "Lower mortality estimate [xxxSpecified Outcomexxx ]" & the Hospital name attach to it
heart_attack <- outcome[which.min(outcome$Lower.Mortality.Estimate...Hospital.30.Day.Death..Mortality..Rates.from.Heart.Attack),]
name <- heart_attack$state
hospital <- heart_attack$Hospital.Name
}
return(hospital)
}
main <- function() {
print("Type Heart Attack, .....")
outcome <- input("Type your selection")
print("Select state")
state <- input("Type in your selection")
best(state,outcome)
}
main()