#laby 16.11


#1

pnorm(27.5, 22, 5)-pnorm(16.2, 22, 5)

1-pnorm(29, 22, 5)

pnorm(17, 22, 5)

pnorm(15, 22, 5)+1-pnorm(25, 22, 5)


#2

dbinom(20, 60, .5)+dbinom(25, 60, .5)+dbinom(30, 60, .5)

pbinom(19, 60, .5)

dbinom(30, 60, .5)- dbinom(19, 60, .5)


#3

ppois(4,7)

1-ppois(10,7)

ppois(16,7)-ppois(3,7)


#4

sample1<-runif(100)
hist(sample1)
qqnorm(sample1)
qqline(sample1, col = 2)

sample2<- rt(100,4)
qqnorm(sample2)
qqline(sample2)

sample3<-rt(100,100)
qqnorm(sample3)
qqline(sample3)