####4.PRAKTIKA####
#1.ARIKETA#
#a)Estandarizatuta P(-1=< z >=1) lortuko dugu.
a<-(pnorm(1)-(1-pnorm(1)))
#b)Estandarizatuta P(-1=< z >=1)
b<-(pnorm(1)-(1-pnorm(1)))
#c)Estandarizatuta P(-2=< z >=2)
c<-(pnorm(2)-(1-pnorm(2)))
#Erregela enpirikoa: datuak kanpai itxura dute eta beraz datuak 
#desbideratze estandarraren arabera zabalduko dira.

#2.ARIKETA#

bb<-70
sd<-3
x <- seq(40 ,100, by=0.1) # grafikoaren abzisa ardatzerako balioak
y <- dnorm(x,70,3 ) # Ordenatu ardatzerako dentsitate funtzioaren balioak
plot(x, y, type="l", xlab="X, gogortasuna")

#b)P(67=< z >=75)
#Estandarizatuta P(-1=< z >=5/3)
b2<-(pnorm(5/3)-(1-pnorm(1)))

#c)(70-c,70+c) tartean %95ko probabilitatea egoteko tartea.
c2a<-(qnorm(0.95,70,3,FALSE))
c2b<-(qnorm(0.95,70,3,TRUE))

#d)
d2<-(10*b2)
d2b<-(pbinom(8,10,b2))

#3.ARIKETA#
karratuAz<-