Create dpout.R