Update adjusted.R