#6. praktika

##########1.Ariketa##########

#a)
a<-pchisq(13.5, 10, lower.tail = FALSE)

#b)
b<-qchisq(0.05,20, lower.tail = FALSE)

#c)
c<-pchisq(29.3, 20, lower.tail = TRUE)

#d)
d<-qchisq(0.99,30, lower.tail = TRUE)

#e)
e<-pt(2.7,10, lower.tail = FALSE)

#f)
f<-qt(0.025,50, lower.tail = FALSE)

#g)
g<-pt(-1.75,25, lower.tail = TRUE)

#h)
h<-qt(0.90,30, lower.tail = TRUE)

##########2.Ariketa##########

#a)
x<-c(167.9, 180.8, 184.8, 189.8 ,194.8 ,200.2 ,201.9 ,206.9 ,207.2, 208.4,226.3 ,227.7 ,228.5 ,232.4 ,239.8 ,258.6) #Datuen bektorea

bb<-mean(x) #Batazbestekoa

varx<-var(x) #Kuasibariantza

qvar<-sqrt(varx) #Desbideratze estandarra

xq1<-qt(0.025,15,lower.tail = FALSE) #tn-1; a/2 (apuntetako 13. orriko formula)

r1<-c(bb-xq1*(qvar/sqrt(16)),bb+xq1*(qvar/sqrt(16))) #x+-tn-1,a/2(s/sqrt(n)) 

#b)
bt<-t.test(x,conf.level=0.95) #a)-ko kalkulo berdina errepikatzen do

##########3.Ariketa##########

#a)

x2<-c(34.7, 35.4, 34.7, 37.7, 32.5, 28.0, 18.4, 24.9) #Datuen bektorea

#b)

bb2<-mean(x2) #Batazbestekoa

varx2<-var(x2) #Kuasibariantza

qvar2<-sqrt(varx2) #Desbideratze estandarra