Istnieje fitdistrfunkcja w pakiecie MASS lub niektóre funkcje w pakiecie fitdistrplus . Oto kilka przykładów z tego ostatniego.
require(fitdistrplus)
set.seed(1)
dat <- rnorm(50,0,1)
f1 <- fitdist(dat,"norm")
f2 <- fitdist(dat,"logis")
f3 <- fitdist(dat,"cauchy")
więc na przykład
> f1
Fitting of the distribution ' norm ' by maximum likelihood
Parameters:
estimate Std. Error
mean 0.1004483 0.11639515
sd 0.8230380 0.08230325
i możesz zobaczyć wykresy za pomocą
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]))
więc wydaje się prawdopodobne jako normalny rozkład

ale może także jako dystrybucja logistyczna (będziesz potrzebować większej próbki, aby odróżnić je w reszce)

chociaż za pomocą qqplot i patrząc na CDF można stwierdzić, że prawdopodobnie nie jest to rozkład Cauchy'ego
