tried to make R script