Create initial.R