Create startingpt.R