Create BCwRprog1.R