comments added to the 4 R scripts