E X -- og tolkning via Store Talls Lov

Relatert til forelesningen mandag 9/xii, med forventning \mu = E X og dens tolkning: kj?r denne lille R-koden, lek litt med koden, tenk gjennom hva som skjer, finn p? dine egne varianter.?

Nils LH

nn <- 6*10^3 # warum den nicht

xx <- sample(1:6,nn,replace=T) # en haug terningkast

averages <- 0*(1:nn)

for (j in 1:nn)

{ averages[j] <- mean(xx[1:j]) }

matplot(100:nn,averages[100:nn],type="l",lwd=3,

xlab="massevis av terningkast",ylab="l?pende gjennomsnitt")

matlines(100:nn,0*(100:nn) + 3.50,type="l",lty=3,lwd=3,col=2)