# Hozzunk létre egy normális eloszlású halmazt 1000 elemmel.
# Az átlag legyen 100, a szórás 20.

norm1 = rnorm(1000,mean=100,sd=20)

# Az átlag legyen 200, a szórás 20.

norm2 = rnorm(1000,mean=200,sd=20)

# Most az átlag legyen 200, a szórás 40.

norm2 = rnorm(1000,mean=200,sd=40)

# Standardizáljuk az eloszlást a z-transzformáció segítségével.

znorm1 = scale(norm1)
znorm2 = scale(norm2)
znorm3 = scale(norm3)

# Ábrázoljuk egymás mellett az eloszláshoz tartozó normál és standard normál eloszlást.
# X tengely határérétkei: normál: 0 és 300, standard normál: -3,+3

par(mfrow=c(3,2))
plot(density(norm1),xlim=c(0,500))
plot(density(znorm1),xlim=c(-3,3))
plot(density(norm2),xlim=c(0,500))
plot(density(znorm2),xlim=c(-3,3))
plot(density(norm3),xlim=c(0,500))
plot(density(znorm3),xlim=c(-3,3))