Starting R script - none functional