correction.R fixed bug