Rückblick – Notenklassifizierung

Teil des Abschnitts Logik und Ablaufsteuerung der R-Journey von Coddy. Lektion 51 von 64.

Aufgabe

Mittel

Vervollständige grade_report(names, scores). Weise jedem Schüler mit ifelse() eine Note zu: A ab 90, B ab 75, C ab 50 und F unter 50. Gib eine Zeile pro Schüler zurück, ada: 93 (A) Excellent, wobei der Kommentar aus einem switch() über die Note stammt: Excellent für A, Good für B, Pass für C und Retake für F.

Füge anschließend Top: gefolgt von den Schülern mit der höchsten Punktzahl hinzu, in der Eingabereihenfolge und mit , verbunden.

Der bereitgestellte Code liest die Namen und die Punktzahlen als zwei durch Kommas getrennte Zeilen ein und gibt jede zurückgegebene Zeile aus.

Probier es selbst

grade_report <- function(names, scores) {
  # Schreibe deinen Code hier
  character(0)
}

# Bereitgestellter Ein-/Ausgabecode: belasse ihn wie er ist
input <- suppressWarnings(readLines(file("stdin")))
cat(grade_report(strsplit(input[1], ",")[[1]], as.numeric(strsplit(input[2], ",")[[1]])), sep = "\n")