dpoi<-rpois(20,3)
dbino<-rbinom(20,10,0.2)
list(dpoi)
hist(dpoi,breaks=0:8,col=5)
lines(0:8,20*dpois(0:8,3))
ajuste.poisson<-fitdistr(dpoi,"Poisson")
ajuste.poisson
summary(ajuste.poisson)
library("fitdistrplus")
tpoi<-rpois(20,3.6)

ks.test(dpoi,tpoi)
ajuste.normal<-fitdistr(dpoi,"Normal")
ajuste.normal
summary(ajuste.normal)

dede<-rnorm(20,3.6,1.5)
dede
ks.test(dpoi,dede)

de<-fitdistr(dpoi,"Exponential")
de1<-fitdistr(dpoi,"Gamma")
de2<-fitdistr(dbino,"Lognormal")
de3<-fitdistr(dbino,"Cauchy")
de4<-fitdistr(dbino,"Weibull")

de5<-fitdistr(dbino,"Pareto")