How to check the AIC of the ARIMAmodel in R

Question

I use r script in SQL Server the below is my code in SQL Server to show the prediction by date. but I need just one time check the aic

EXECUTE sp_execute_exte