weight.R corrected