#poison distribution #pdf dpois(0,12) 1-dpois(5,4) dpois(0,6.28)#cdf
ppois(0,12) 1-ppois(5,4) ppois(0,6.28)
#random numbers rpois(100,4) set.seed(12345)#ploting
plot(1:10,dpois(1:10,4),type=‘h’,col=‘red’)
plot(1:10,ppois(1:10,4),type=‘l’,col=‘brown’) par(mfrow=c(1,2))
#question two#pdf 1-dpois(7,4) dpois(3,8)
#cdf 1-ppois(7,4) ppois(3,8)#ploting
plot(1:7,dpois(1:7,4),type=‘h’,col=(‘red’))
plot(1:5,dpois(1:5,8),type=‘s’,col=(‘orange’))
#question three#cdf ppois(0,2) ppois(5,2) ppois(6,120)
```#ploting plot(1:10,dpois(1:10,120),type=‘s’,col=(‘green’))
plot(1:10,ppois(1:10,120),type=‘l’,col=(‘purple’)) par(mfrow=c(1,2))
#normal distribution#pdf dnorm(10000,25000,10000)
dnorm(30000,25000,10000)-dnorm(20000,25000,10000) ```#cdf
pnorm(10000,25000,10000)
pnorm(300000,25000,10000)-pnorm(20000,25000,10000)
plot(1:5,dnorm(1:5,25000,10000),type=(‘l’))
plot(1:5,pnorm(1:5,25000,10000),type=(‘s’)) par(mfrow=c(1,2))
#exponetial distribution#pdf
dexp(3,0.125)-dexp(12,0.125) 1-dexp(10,0.125)
#cdf pexp(12,0.125)-pexp(3,0.125) 1-pexp(25,0.125)-pexp(10,0.125)#ploting
plot(1:5,dexp(1:5,0.125),type=(‘l’))
plot(1:5,pexp(1:5,0.125),type=(‘s’))
#beta distribution#percentile qbeta(0.8,4,2)
#binomial distribution#pdf 1-dbinom(11,40,0.6)
#cdf 1-pbinom(11,40,0.6)#ploting
plot(1:11,1-dbinom(1:11,40,0.6),type=‘h’,col=(‘green’))
plot(1:11,1-pbinom(1:11,40,0.6),type = ‘l’,col=(‘orange’))
par(mfrow=c(1,2))