R scripts etc added