Update power.r