fixed bcratio.R