Initial check-in for 4 R code and the pgn generated