replace old model R script with new