add patience game r script