split into augment.R file