Update createpregtd.R