Update bpn.R