Atkinson's score

Hello Dear R Users,

I would like to compute the Atkinson's score for a linear model 
$Y = \beta_0 + \beta_1 X_1$. I could not find a decent literature to do
that. Is there a package in R that computes Atkinson's score? Thank you very
much.

New user, Aram. 

 
 
" Many people would sooner die than think; in fact, they do so."
- Bertrand Russell