Vorderseite 19*** Ein Kollege in Schweden und Du analysieren denselben Datensatz. Auf einem Workshop vergleicht Ihr Eure Ergebnisse. Du hast die Interaktion der zwei Prädiktoren A und B im Modell, er nicht. Um wie viel Prozent unterscheiden sich Eure Modelle für den Punkt (A=10, B=20=? Genauer: Um wie viel Prozent liegt Dein Erwartungswert unter seinem? (Hinweis: Was gesucht ist, ist die Differenz Deines Modells zu seinem relativ zu seinem. Es bedarf folgende Schritte: * Interaktion aus fm entfernen; * mit beiden Modellen auf (10, 20) vorhersagen * Vorhersagewert des Modells ohne Interaktion – Vorhersagewert des Modells mit Interaktion, dann durch Vorhersagewert des Modells ohne Interaktion teilen und mit 100% multiplizieren (oder auch (e-i)/e*100, wobei i der Wert aus dem Interaktionsmodell ist und e aus dem einfachen) * auf 1 Nachkommastellen genau angeben. set.seed (44) A <- round(runif(23, 0, 100), 2) B <- round(rnorm(23, 15, 5), 2) y <- 0.5*A - 0.5*B + 0.25*A*B + rnorm(23, 0,10) fm <- lm(y~A*B) # Modell fitten summary(fm) anova(fm) predict(fm, newdata=data.frame("A"=10, "B"=20))