Ada fitdistr
fungsi dalam paket MASS atau beberapa fungsi dalam paket fitdistrplus . Berikut adalah beberapa contoh dari yang terakhir.
require(fitdistrplus)
set.seed(1)
dat <- rnorm(50,0,1)
f1 <- fitdist(dat,"norm")
f2 <- fitdist(dat,"logis")
f3 <- fitdist(dat,"cauchy")
jadi misalnya
> f1
Fitting of the distribution ' norm ' by maximum likelihood
Parameters:
estimate Std. Error
mean 0.1004483 0.11639515
sd 0.8230380 0.08230325
dan Anda dapat melihat plot dengan
plotdist(dat,"norm",para=list(mean=f1$estimate[1],sd=f1$estimate[2]))
plotdist(dat,"logis",para=list(location=f2$estimate[1],scale=f2$estimate[2]))
plotdist(dat,"cauchy",para=list(location=f3$estimate[1],scale=f3$estimate[2]))
sehingga terlihat masuk akal sebagai distribusi normal
tetapi juga mungkin sebagai distribusi logistik (Anda perlu sampel yang lebih besar untuk membedakannya di bagian ekor)
meskipun dengan qqplot dan melihat CDF Anda dapat mengatakan bahwa ini mungkin bukan distribusi Cauchy