a nwe R script