working on R script output