powered by
Thermal
str(Thermal) attach(Thermal) model <- lm(loss~temp) summary(model) detach(Thermal)
Run the code above in your browser using DataLab