# standard Gauss/ normalis eo.
x <- seq(-3,3,0.05)
# surusegfuggveny
plot(x,dnorm(x),type="l",ylim=c(0,1))
# eloszlasfuggveny
lines(x,pnorm(x),col="red")
# kvantilisfuggveny - intuicio
# y tengelyen fixaljuk a valoszinuseget
# hol metszi az eo-fuggvenyt?
# ezt levetitjuk x tengelyre.
# spec. eset: median: val. valt. 0.5 esellyel
# kisebb ennel a szamnal
abline(h=0.5,lty=2)
abline(v=0,lty=2)
# 0.7 -kvantilis: mi az az x szam, aminel 
# 0.7 esellyel kisebb a standard Gauss?
abline(h=0.7,col="blue")
abline(v = qnorm(0.7),col="blue")
#kvantilisfuggveny: eloszlasfuggveny inverze
plot(x,pnorm(x),type="l",col="red",ylim=c(-2,2),
	xlim=c(-2,2))
q <- seq(0,1,0.025)
lines(q,qnorm(q))
abline(0,1,lty=2)
q2 <- c(0.25,0.5,0.75)
qnorm(q2)
points(q2,qnorm(q2),pch=1:3)
points(qnorm(q2),q2,pch=1:3)