##Muutetaan tehtävä 7 luottamusvälin laskemiseksi
	#a)
u <- runif(2000, min=0, max=1)
y <- -log(u)

## Luottamusväli (95 %) odotusarvolle

round(mean(y) + qnorm(c(.025, .975))*sd(y)/sqrt(2000), 2)

	#b)
u <- runif(1000, 0, 1)
y <- -log(u)
z <- -log(1-u)

## Luottamusväli (95 %) odotusarvolle
round(mean((y+z)/2) + qnorm(c(.025, .975))*sd((y+z)/2)/sqrt(1000),2)

# b)-kohdassa kapeampi lv.