Copy of r script with changes