Calculating AIC by hand from R output

Question

I am looking to calculate AIC by hand, as part of our course evaluation is a test w/o using R actively.

## \'data.frame\':    898 obs. of  4 variables:

model