adding the main R scripts I have