BLB R code ready