Seite 2 von 2

Re: übungsaufgabe

Verfasst: Di Apr 27, 2021 8:43 am
von jogo
Hallo heyoka,

ich verstehe die Aufgabe so:

Code: Alles auswählen

set.seed(42)
n <- 1000
s2 <- cumsum(sample.int(4, size=n, replace = TRUE)==2)
x <- 1:n
plot((s2/(1:n)) ~ x)
bzw.

Code: Alles auswählen

set.seed(42)
n <- 1000
s2 <- cumsum(sample.int(4, size=n, replace = TRUE)==2)
plot((s2/(1:n)) ~ I(1:n))
Gruß, Jörg