add cor for R
update R script