if (exists("lsg") == FALSE){ #Nur falls von RStudio aufgerufen lsg <- TRUE #Wenn man die lsg ausgeben will dann lsg <- TRUE sonst } if (exists("baseDir") == FALSE){ #Nur falls von RStudio aufgerufen baseDir = getwd() } ig <- function(name, scale = 1) { return (paste0("\\includegraphics[ scale =", scale,"]{", baseDir,"/", name, "}")) }
Für die Zufallsvariable $X$ sei bekannt, dass sie wie $f_X(x) = e^{-\frac{2}{5} x}$ verteilt ist. Berechnen Sie die Wahrscheinlichkeit, dass die Zufallsvariable $X$ einen Wert zwischen 2 und 10 annimmt mit folgenden Verfahren:
a) Durch Simulation mittles der R-Funktion rexp
(1000 Realisierungen)
vals <- rexp(n = 1000, rate = 2/5) sum(vals > 2 & vals < 10) / length(vals)
b) Durch Integration des entsprechenden Integrals \lsg{ $\int_2^{10} f_X(x) \; dx = \ldots = 2.5$ }
c) Einbinden einer Graphic:
r ig('test.jpg')
...
verteilung <- read.csv(file.path(baseDir, "verteilung.csv"), sep=";")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.