Create extractAAindex.r