adding shift.R