Create gpCreate.R