Spiro Kolokithas
19/03/2019
setwd("/Users/koloks/Melbourne_Weather")
dow<-read.csv("Victorian Energy Compare Data.csv", header=TRUE, stringsAsFactors = FALSE)
lm(Total~Weather, data=dow )
Call:
lm(formula = Total ~ Weather, data = dow)
Coefficients:
(Intercept) Weather
17.0614 0.8272
https://github.com/koloks/Weather
https://Spiro-kolokithas.shinyapps.io/Melbourne_Weather/
Thank you for reviewing my work