# Wirtschaftsstatistik Blatt 1 # Aufgabe 2 a) myexp <- function(x) { # myexp ist eine Funktion in x # die Variable out enthält den berechneten Funktionswert für gegebenes x out <- x * exp(-abs(x)) # Rückgabe des berechneten Funktionswerts return(out) } # Aufgabe 2 b) # Simulation von 10 N(1, 3)-verteilten Zufallsvariablen x <- rnorm(10, 1, sqrt(3)) # Achtung: zweiter Paramter ist die Standardabweichung! x # Anwenden der oben definierten Funktion auf den Vektor x # Das Ergebnis ist ein Vektor von Funktionswerten myexp(x)