R script ok