Fehler in der Bestellung(datastate$c) : argument 1 ist nicht ein Vektor

best <- function(state, outcome) {
    data = read.csv("outcome-of-care-measures.csv", colClasses="character")
    data[, 11] <- as.numeric(data[, 11])
    data[, 17] <- as.numeric(data[, 17])
    data[, 23] <- as.numeric(data[, 23])
    if (outcome == "heart attack") { 
        dataset <- data[,c(2,7,11)]
    } else if (outcome == "heart failure") {
        dataset <- data[,c(2,7,17)]
    } else if (outcome == "pneumonia") {
        dataset <- data[,c(2,7,23)]
    }
    dataset<- na.omit(dataset)
    names(dataset)<- c("a","State","c")

    datastates <- split(dataset, dataset$State)
    datastate <- datastates$state
    order.h <- order(datastate$c)

    answer <- datastate[order.h,]
    answer [1,1]
}

Den Fehler bin ich immer in meinem code ist;
Fehler in der Bestellung(datastate$c) : argument 1 ist nicht ein Vektor

Ich glaube, dass es ist, weil ich nicht den code schreiben, bevor Sie es ordnungsgemäß. Den code zeigen, den Namen des Staates, dass ich in der Funktion und erstellen Sie ein Daten-set mit 3 Spalten in der Reihenfolge von der Dritten Spalte.

Sie sagen uns: zeigen Sie uns print(datastate$c) schon. Ohne das dataset, in diesem Beispiel ist nicht reproduzierbar. Die Elemente der datastate$c kommen aus den verschiedenen Spalten ausgewählt, die durch Ihre if..else Leiter.
Sie müssen, engen Sie Ihre Frage bis auf das kleinste Beispiel-code (Minimal Reproduzierbare Beispiel). Kein Punkt bei der Buchung Ihre Wand-code hier ohne dataset.

InformationsquelleAutor inect | 2015-01-31

Schreibe einen Kommentar