after change to the seed pmechanism in R