Vorderseite 16*** Reduziere folgendes Modell so weit wie möglich mittels BIC-Kriteriums (Argument k= … in step). Wie groß ist die redisual deviance (auf 1 Nachkommastelle)? (Hinweis: Den folgenden R-Code im Block nach R kopieren. fm ist das Startmodell, das es zu vereinfachen gilt.) set.seed(14) A <- runif(23, 0, 100) B <- rnorm(23, 15, 5) C <- runif(23, 0, 1) D <- runif(23, 0, 1000) y <- 2+2*B + 10*B*C + rnorm(23, 0, 10) fm <- glm(y~ (A+B+C+D)^2) anova(fm, test="F")