Lösungen

Aufgabe SLR 1 Lsg

zurück zur Aufgabenstellung

Aufgabe MLR 1 Lsg

  album2       <- read.delim("Daten/Album Sales 2.dat", header = TRUE)
  # Erstes Modell
    albumSales.2 <- lm(sales ~ adverts, data = album2)
  # zweites Modell
    albumSales.3 <- lm(sales ~ adverts + airplay + attract, data = album2)
  # Ausgabe Ergebnisse
    pander::pander(summary(albumSales.2))
    pander::pander(summary(albumSales.3))
  # Modellvergleich
    # library(car) fuer VIF    
    anova(albumSales.2, albumSales.3)
    # library(car) fuer VIF    
    Tol <- 1/car::vif(albumSales.3)
    VIF <- car::vif(albumSales.3)

zurück zur Aufgabenstellung

rm(list = ls()) graphics.off() if (!require("pacman")) install.packages("pacman") pacman::p_load(pander) options(digits=3)