Create bcea.R