Update pgmNode.default.R

Initial trial of a factor Node