Create DataBC.R