Samples of the R spripts