#Ques 1
fish_caught=c(81,91,75,68,91,102,82,67,75,86)
summary(fish_caught)
t.test(x=fish_caught,mu=67,alternative = "greater")
t.test(x=fish_caught,mu=72,alternative = "greater")
#Ques 2
doc_camera=c(10,10,11,10,8,9,7,8,10,6,7,12,9,6,10)
ppt=c(12,5,9,15,14,6,8,5,12,2,0,17,21,8,14)
shapiro.test(doc_camera)
shapiro.test(ppt)
var.test(doc_camera,ppt)
t.test(doc_camera,ppt,alternative="two.sided")
#Ques 3
before_tk=c(3,7,5,5,7,8,5,7,6,6)
after_tk=c(7,6,7,10,7,7,9,8,9,8)
summary(before_tk)
summary(after_tk)
t.test(after_tk,before_tk,alternative = 'greater')
#Ques 4
binom.test(34,52,0.7)
#Ques 5
perfect=c(84,85,80,92,86,81,87,77,82,90,82,88,82,72,79)
missers=c(78,65,64,74,62,80,73,61,72,71,58,70,67,66,71)
shapiro.test(perfect)
shapiro.test(missers)
var.test(perfect,missers)
t.test(perfect,missers,var.equal = TRUE)