I have a list of statistical models:

```
###Data import
Responses <- as.data.frame(matrix(sample(0:10, 1*100, replace=TRUE), ncol=2))
colnames(Responses) <- c("A","B")
Explanatories <- as.data.frame(matrix(sample(20:30, 1*100, replace=TRUE), ncol=2))
colnames(Explanatories) <- c("x","y")

###Create models
Models <- list(
lm(Responses$A ~ Explanatories$x),
lm(Responses$B ~ log10(Explanatories$x)),
lm(Responses$B ~ exp(Explanatories$y))
)

```

And a list of null models. These correspond to the models in the previous list, so for example I would want to compare the first lm in 'Models' against the first lm in 'Models\_null': 

```
Models_null <- list(
lm(Responses$A ~ 1),
lm(Responses$B ~ 1),
lm(Responses$B ~ 1)
)

All_models <- list(Models,Models_null)
names(All_models)<-c("full","res")

```

I would like to calculate an AICc score for each model using this formula: 

```
aicc<-function(x) AIC(x)+((2*length(coef(x))*(length(coef(x))+1))/(length(resid(x))-length(coef(x))-1))

```

I need to do some calculations based on how AICc scores compare between each respective full and null model. **So what I would need is a list of dataframes displaying the AICc scores for each pair of models, with 2 columns for 'full' and 'null**. Thank you in advance for any help with this.