fixed cbpp.R