update of R scripts