two R scripts for running LSA added.