assigment 3

#no of questions 
n <- 20

#probability of getting question correct

p <- 0.25

#probability of  getting 7 or less correct answers

prob7<- dbinom(7,n,p)
prob6 <- dbinom(6,n,p)
prob5 <- dbinom(5,n,p)
prob4 <- dbinom(4,n,p)
prob3<- dbinom(3,n,p)
prob2 <- dbinom(2,n,p)
prob1 <- dbinom(1,n,p)
prob0 <- dbinom(0,n,p)

#print probability

print(prob1)

prob2 <- pbinom(0.75,20,0.25)

print(prob2)

#plot(7,dbinom(7,n,p),'pie')

prob <-c(prob0,prob1,prob2,prob3,prob4,prob5,prob6,prob7)
pie(prob)
barplot(prob)
hist(prob)
success <- 0:7
plot(success,dbinom(success,20,0.25),'h')