load("Data.RData")

LinearModel<-lm(log_penetration~fit+nem+fin_taxes_price+fin_network_price+log_centralized_production+trend+(nem*fin_network_price), data=Data)
summary(LinearModel)