initial correction.R