setwd("C:/Users/alex/Desktop/SSS") eis = read.csv2("eissalon.csv") eis regmodel = lm(turnover_Y ~ temp_X, data=eis) summary(regmodel) # gefittete Werte: regmodel$fitted.values