Create pgmNetwork.R

Initial attempt at pgmNetworks