Create Power_consumption.R