################### 
## R-esimerkkejä ##
###################


#################################
##  Funktioiden määrittäminen  ##
#################################


# normitettu normaalijakauma

fnorms<-function(x)
{1/sqrt(2*pi)*exp(-x^2/2)}

curve(fnorms(x),-3,3)

curve(dnorm(x,0,1),-3,3)


# yleinen normaalijakauma

fnorm<-function(x,mu,sigma)
{1/(sqrt(2*pi)*sigma)*exp(-(x-mu)^2/(2*sigma^2))}

curve(fnorm(x,5,2),-5,15)

curve(dnorm(x,5,2),-5,15)