Create Energy.R