Deutsches R-Forum

Code: Alles auswählen

funktion <- function(datensatz, datumsvariable){
Jahr2020 <- subset(datensatz, datumsvariable == 2020)
return(Jahr2020)
}

funktion(datensatz = mein_datensatz, datumsvariable ="year")

Code: Alles auswählen

variable <- "year"
subset(mein_datensatz, variable == 2020) 

Code: Alles auswählen

funktion <- function(datensatz, datumsvariable) {
  datensatz[datensatz[, datumsvariable]==2020, ]
}

Code: Alles auswählen

funktion <- function(datensatz, datumsvariable) {
  datensatz[datensatz[, datumsvariable]>7, ]
}

funktion(iris, "Sepal.Length")

Code: Alles auswählen

string <- "Hallo \n Welt" #funktioniert nicht
string <- print("Hallo \n Welt") #funktioniert nicht und gibt den String auch direkt aus, statt ihn nur zu speichern
string <- cat("Hallo \n Welt") #übernimmt zwar den Zeilenumbruch, gibt den String aber direkt aus und speichert ihn nicht

Code: Alles auswählen

string <- "Hallo \n Welt" 
cat(string)

Code: Alles auswählen

cat(string <- "Hallo \n Welt")

Code: Alles auswählen

Spielerei <- function(){
  Zahlen <- 1:10  
  Text   <- "Hubba Bubba\nKaubonbon"
  return(list(Anderes=Zahlen, Meldung=Text))
}
cat(Spielerei()$Meldung)

Code: Alles auswählen

string <- "Hallo \n Welt" 
cat(string)

Code: Alles auswählen

mean$string

Code: Alles auswählen

permVar <- function(myvar) function() list(string=myvar)

myfkt <- permVar("Hallo \n Welt")

cat(myfkt()$string)

Code: Alles auswählen

mittelwerte <- function(input1, input2, input3){
mittelwert1 <- mean(input1)
mittelwert2 <- mean(input2)
mittelwert3 <- mean(input3)

differenz12 <- mittelwert1 - mittelwert2
differenz13 <- mittelwert1 - mittelwert3

werte <- cbind(mittelwert1, mittelwert2, mittelwert3)
differenz <- paste("Die Differenz zwischen Wert 1 & Wert 2 beträgt", differenz12, "\nDie Differenz zwischen Wert 1 und Wert 3 beträgt", differenz13)

return <- list("Werte" = werte, "Differenz"=differenz)
}

Code: Alles auswählen

ergebnis <- mittelwert(1:3,2:4,3:5)
ergebnis$differenz