"menuetest" <- function(x) { #----------------------------------------------- # Menü-Test-Funktion # # Siehe: # # Entwickelt durch: G. Faes # E-Mail: guenter@faes.de # Datum: 15.02.2009 17:31:45 Version: 1.0 # R-Version: 2.8.1 #----------------------------------------------- # Variablenindizierung: menue_text_1 <- "Mittelwert" menue_text_2 <- "Standardabweichung" daten <- rnorm(100, 95,1) # 100 normalverteilte Werte erzeugen.... Mittelwert <- 0 Standardabweichung <- 0 Auswahl <- 0 Ausgabe <- 0 # Berechnungsteil: Auswahl <- c(menue_text_1, menue_text_2) switch(menu(Auswahl, title = "Menübeispiel"), Auswahl <- 1, Auswahl <- 2) if (Auswahl == 1) { Mittelwert <- mean(daten) Ausgabe <- list(Mittelwert = Mittelwert) } if (Auswahl == 2) { Standardabweichung <- sd(daten) Ausgabe <- list(Standardabweichung = Standardabweichung) } # Ergebnisausgabe: return(Ausgabe) } # Funktions-Ende