Create bip_pj.R

Gist from François Briatte, using the bip initialization feed directly to ggnet.