getFIA function

Download FIA Data and Load into R