File:Alborapena 001.png

> par(mfrow=c(3,3))
> x=seq(-4,4,length=1000)
> normalx=dnorm(x)
> plot(x,normalx,lwd=1,xaxt="n",yaxt="n",xlab="",ylab="")
> y=seq(0,1,length=10000)
> betay=dbeta(y,1.5,5)
> plot(y,betay,lwd=1,xaxt="n",yaxt="n",xlab="",ylab="")
>  z=seq(0,1,length=10000)
> betaz=dbeta(z,5,1.5)
> plot(z,betaz,lwd=1,xaxt="n",yaxt="n",xlab="",ylab="")
> normalsim=rnorm(1000)
> hist(normalsim,xaxt="n",yaxt="n",xlab="",ylab="",main="")
>  betaysim=rbeta(1000,1.5,5)
> hist(betaysim,xaxt="n",yaxt="n",xlab="",ylab="",main="")
> betazsim=rbeta(1000,5,1.5)
> hist(betazsim,xaxt="n",yaxt="n",xlab="",ylab="",main="")
> normalsim2=rnorm(25)
> stripchart(normalsim2,xaxt="n",xlab="Banakuntza simetrikoa",cex.lab=1.3)
> betasimy2=rbeta(20,1.5,5)
> stripchart(betasimy2,xaxt="n",xlab="Eskuinera alboratua",cex.lab=1.3)
> betasimz2=rbeta(20,5,1.5)
> stripchart(betasimz2,xaxt="n",xlab="Ezkerrera alboratua",cex.lab=1.3)