### Aufgabe 1a ###
Modell_1 <- lm(Volumen ~ Hoehe + Durchmesser)
summary(Modell_1)

### Aufgabe 1b ###
D2 <- Durchmesser^2
Modell_2 <- lm(Volumen ~ Hoehe + Durchmesser + D2)
summary(Modell_2)

### Aufgabe 1c ###
Modell_3 <- lm(log(Volumen) ~ log(Hoehe) + log(Durchmesser))
summary(Modell_3)

### Aufgabe 2 ###
library(MASS)
boxcox(Modell_1)

### Aufgabe 3 ###
Modell_1 <- lm(FuelCons ~ kW + CCM)
summary(Modell_1)
plot(Modell_1)

### Aufgabe 4 ###
Modell_2 <- lm(FuelCons ~ kW + CCM + CO2)
summary(Modell_2)