add R file to do BLB