Update Energy.R