Có fitdistr
chức năng trong gói MASS hoặc một số chức năng trong gói fitdistrplus . Dưới đây là một số ví dụ từ sau này.
require(fitdistrplus)
set.seed(1)
dat <- rnorm(50,0,1)
f1 <- fitdist(dat,"norm")
f2 <- fitdist(dat,"logis")
f3 <- fitdist(dat,"cauchy")
ví dụ
> f1
Fitting of the distribution ' norm ' by maximum likelihood
Parameters:
estimate Std. Error
mean 0.1004483 0.11639515
sd 0.8230380 0.08230325
và bạn có thể thấy các lô với
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]))
vì vậy nó có vẻ hợp lý như một phân phối bình thường
nhưng cũng có thể là một phân phối logistic (bạn sẽ cần một mẫu lớn hơn để phân biệt chúng trong các đuôi)
mặc dù với một qqplot và nhìn vào CDF, bạn có thể biết rằng đây có lẽ không phải là một bản phân phối Cauchy