#a)
pbinom(0,30,0.1)
#b)
dbinom(8,30,0.1)#spatne asi
1-pbinom(7,30,0.1)
#c)
modus
#ze 30 lidi budou prumerne 3 lidi levaci
#d)
hranice<-rbinom(10000,30,0.1)
quantile(hranice,0.05)
quantile(hranice,0.95)

qbinom(c(0.025,0.975),30,0.1)
#e)
n<-60
levaci_ve_vzorku<-13
ocekavany_podil<-0.1
prumer<-60*0.1
t_test<-t.test(13,mu=6)
t_test

sprevne
chisq.test(c(13,60-13),p=c(0.1,0.9))



tab1<-read.table("clipboard")
chisq.test(tab1)
#p-value je mensi nez 0,5, zamitam nulovou hypotezu a znamena to, ze mezi daty je vztah
fourfoldplot(as.matrix(tab1))

tab2<-read.table("clipboard",h=T,dec=",",as.is=F)
interaction.plot(tab2$sex,tab2$druh,tab2$body)
lm.1<-lm(body~sex+druh+sex:druh,tab2)
anova(lm.1)