R script added

it works