the 4 R scripts