R-blogerów

mój student zapytał dzisiaj, jak interpretować statystyki AIC (Akaike ' s InformationCriteria) do wyboru modelu. Skończyło się na tym, że opracowaliśmy kod R, aby zademonstrować, jak obliczyć AIC dla prostego modelu GLM (generallinear model). Zawsze myślę, że jeśli potrafisz zrozumieć pochodzenie astatystyki, o wiele łatwiej jest zapamiętać, jak jej używać.,

teraz, jeśli wygooglujesz AIC, prawdopodobnie natkniesz się na wiele matematyki. Ale zasady nie są tak złożone. Więc tutaj zmieścimy kilka prostych GLMs, a następnie uzyskać środki, aby wybrać „najlepszy” jeden.

przejdź do końca, jeśli chcesz przejrzeć podstawowe zasady.

Zanim jednak zrozumiemy AIC, musimy zrozumieć metodologię metodologii likelihoods.,

wyjaśniając likelihoods

powiedz, że masz jakieś dane, które są normalnie dystrybuowane ze średnią 5I sd 3:

set.seed(126)n 
Now we want to estimate some parameters for the population that 
 wassampled from, like its mean and standard devaiation (which we know hereto be 5 and 3, but in the real world you won’t know that).
We are going to use frequentist statistics to estimate those parameters.Philosophically this means we believe that there is ‘one true value’ foreach parameter, and the data we observed are generated by this truevalue.
m1 
The estimate of the mean is stored here 
 =4.38, the estimatedvariance here 
= 5.91, or the SD 
=2.43. Just to be totally clear, we also specified that we believe thedata follow a normal (AKA "Gaussian”) distribution.
We just fit a GLM asking R to estimate an intercept parameter (
),which is simply the mean of 
. We also get out an estimate of the SD(= $\sqrt variance$) You might think its overkill to use a GLM toestimate the mean and SD, when we could just calculate them directly.
Well notice now that R also estimated some other quantities, like theresidual deviance and the AIC statistic.
summary(m1)#### Call:## glm(formula = y ~ 1, family = "gaussian")#### Deviance Residuals:## Min 1Q Median 3Q Max## -5.7557 -0.9795 0.2853 1.7288 3.9583#### Coefficients:## Estimate Std. Error t value Pr(>|t|)## (Intercept) 4.3837 0.3438 12.75 
You might also be aware that the deviance is a measure of model fit,much like the sums-of-squares. Note also that the value of the AIC issuspiciously close to the deviance. Despite its odd name, the conceptsunderlying the deviance are quite simple.
As I said above, we are observing data that are generated from apopulation with one true mean and one true SD. Given we know haveestimates of these quantities that define a probability distribution, wecould also estimate the likelihood of measuring a new value of 
 thatsay = 7.
To do this, we simply plug the estimated values into the equation forthe normal distribution and ask for the relative likelihood of 
. Wedo this with the R function 
sdest 
Formally, this is the relative likelihood of the value 7 given thevalues of the mean and the SD that we estimated (=4.8 and 2.39respectively if you are using the same random seed as me).
You might ask why the likelihood is greater than 1, surely, as it comesfrom a probability distribution, it should be y values, so the probability of any given value will be zero.The relative likelihood on the other hand can be used to calculate theprobability of a range ofvalues.
So you might realise that calculating the likelihood of all the datawould be a sensible way to measure how well our ‘model’ (just a mean andSD here) fits the data.
Here’s what the likelihood looks like:
plot(y, dnorm(y, mean = coef(m1), sd = sdest), ylab = "Likelihood")

to tylko rozkład normalny.
aby to zrobić, zastanów się, w jaki sposób obliczyłbyś prawdopodobieństwo wielu (niezależnych) zdarzeń. Powiedzmy, że szansa, że jeżdżę rowerem do pracy w danym dniu to 3/5, a szansa, że pada to 161/365 (jak evancouver!,), wtedy szansa, że będę jeździć w deszczu to 3/5 *161/365 = około 1/4, więc najlepiej nosić płaszcz, jeśli jeżdżę w Vancouver.
możemy zrobić to samo dla likelihoods, wystarczy pomnożyć prawdopodobieństwo każdego osobnika y I mamy całkowite prawdopodobieństwo. Będzie to bardzo mała liczba, ponieważ mnożymy wiele małych liczb przez siebie nawzajem., Tak więc jedną z sztuczek, której używamy, jest zsumowanie dziennika likelihoods zamiast ich pomnożenia:
y_lik 
The larger (the less negative) the likelihood of our data given themodel’s estimates, the ‘better’ the model fits the data. The deviance iscalculated from the likelihood and for the deviance smaller valuesindicate a closer fit of the model to the data.
The parameter values that give us the smallest value of the-log-likelihood are termed the maximum likelihood estimates.
Comparing alternate hypotheses with likelihoods
Now say we have measurements and two covariates, 
 and 
, eitherof which we think might affect y:
a 
So x1 is a cause of y, but x2 does not affect y. How would we choosewhich hypothesis is most likely? Well one way would be to compare modelswith different combinations of covariates:
m1 
Now we are fitting a line to y, so our estimate of the mean is now theline of best fit, it varies with the value of x1. To visualise this:
plot(x1, y)lines(x1, predict(m1))

predict(m1)podaje linię najlepszego dopasowania, czyli średnią wartość ygiven każdej wartości X1. Następnie używamy predict, aby uzyskać likelihoods dla każdego modelu:
sm1 
The likelihood of 
 is larger than 
, which makes sense because
 has the ‘fake’ covariate in it. The likelihood for 
 (which hasboth x1 and x2 in it) is fractionally larger than the likelihood 
,so should we judge that model as giving nearly as good a representationof the data?
Because the likelihood is only a tiny bit larger, the addition of 
has only explained a tiny amount of the variance in the data. But wheredo you draw the line between including and excluding x2? You run into asimilar problem if you use R^2 for model selection.
So what if we penalize the likelihood by the number of paramaters wehave to estimate to fit the model? Then if we include more covariates(and we estimate more slope parameters) only those that account for alot of the variation will overcome the penalty.
What we want a statistic that helps us select the most parsimoniousmodel.
The AIC as a measure of parsimony
One way we could penalize the likelihood by the number of parameters isto add an amount to it that is proportional to the number of parameters.First, let’s multiply the log-likelihood by -2, so that it is positiveand smaller values indicate a closer fit.
LLm1 
Why its -2 not -1, I can’t quite remember, but I think just historicalreasons.
Then add 2*k, where k is the number of estimated parameters.
-2*LLm1 + 2*3## 257.2428
Dla m1 są trzy parametry, jeden przechwyt, jeden nachylenie i jeden standard odchylenia. Teraz obliczmy AIC dla wszystkich trzech modeli:
-2*LLm1 + 2*3## 257.2428LLm2 
We see that model 1 has the lowest AIC and therefore has the mostparsimonious fit. Model 1 now outperforms model 3 which had a slightlyhigher likelihood, but because of the extra covariate has a higherpenalty too.
AIC basic principles
So to summarize, the basic principles that guide the use of the AIC are:
 
 
Lower indicates a more parsimonious model, relative to a model fitwith a higher AIC.
 
 
 
It is a relative measure of model parsimony, so it only hasmeaning if we compare the AIC for alternate hypotheses (= differentmodels of the data).
 
 
 
We can compare non-nested models. For instance, we could compare alinear to a non-linear model.
 
 
 
The comparisons are only valid for models that are fit to the same responsedata (ie values of y).
 
 
 
Model selection conducted with the AIC will choose the same model asleave-one-out cross validation (where we leave out one data pointand fit the model, then evaluate its fit to that point) for largesample sizes.
 
 
 
You shouldn’t compare too many models with the AIC. You will runinto the same problems with multiple model comparison as you wouldwith p-values, in that you might by chance find a model with thelowest AIC, that isn’t truly the most appropriate model.
 
 
 
When using the AIC you might end up with multiple models thatperform similarly to each other. So you have similar evidenceweights for different alternate hypotheses. In the example above m3is actually about as good as m1.
 
 
 
You should correct for small sample sizes if you use the AIC withsmall sample sizes, by using the AICc statistic.
 
 
 Assuming it rains all day, which is reasonable for Vancouver.
 
 
To leave a comment for the author, please follow the link and comment on their blog: Bluecology blog.
 R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.