Create present.R