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, "}"))
  }

Eine typische Aufgabe: Arbeiten mit W'Dichten

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')

Aufgabe 2 (Blah Blah)

...

Anmerkungen Umlaute eher UTF-8

Achtung Dateien müssen wir folgt eingebunden werden.

  verteilung <- read.csv(file.path(baseDir, "verteilung.csv"), sep=";")


christophhofer/idpedu documentation built on May 7, 2019, 7:40 a.m.