übungsaufgabe

[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