Deutsches R-Forum

Verfasst: **Di Mai 21, 2019 8:30 pm**

Hallo!

Ich habe eine Frage bezüglich einer Aufgabe, in welcher ich mit Hilfe eines geeigneten Dummy Variablen Designs testen soll, ob sich die Erfahrung für Männer und Frauen bei gleichem Bildungsniveau (= Dummy Variable) unterschiedlich auf den log(Stundenlohn) auswirkt.

Für die SSR des restringierten Modells habe ich folgenden Code verwendet:

Code: Alles auswählen

lm.stdl_r <- lm(log(StdL) ~ HBA + I(Erf) + I(Erf^2), data = stdl_44)
SSR_r <- deviance(lm.stdl_r)

Beziehungsweise SSR für die unrestringierten Modelle:

Code: Alles auswählen

lm.stdl_u1 <- lm(log(StdL) ~ HBA + Erf*Weibl + I((Erf^2)*Weibl), data = stdl_44)
SSR_u1 <- deviance(lm.stdl_u1) 
lm.stdl_u2 <- lm(log(StdL) ~ HBA + Erf*Weibl + I((Erf^2)*Weibl), data = stdl_44)
SSR_u2 <- deviance(lm.stdl_u2)

Jedoch komm ich einfach nicht dahinter, wie ich das Bildungsniveau konstant halten kann. Das Bildungsniveau ist eine Dummyvariable mit 10 Ausprägungen, wobei jede für ein unterschiedlich letztes Ausbildungsniveau steht.

Vielleicht kann mir da jemand helfen.
Vielen Dank schon im Voraus

R_rookie

Verfasst: **Di Mai 21, 2019 8:39 pm**

ob sich die Erfahrung für Männer und Frauen bei gleichem Bildungsniveau (= Dummy Variable) unterschiedlich auf den log(Stundenlohn) auswirkt

Hört sich für mich nach einer Interaktion von Geschlecht x Bildung an. Wenn diese groß ist, hat das Bildungsniveau einen unterschiedlichen Einfluss je nach Geschlecht.

Verfasst: **Di Mai 21, 2019 11:53 pm**

Vielen Dank schon einmal für die Hilfe!

Als Tipp haben wir erhalten: Die Nullhypothese lautet, dass beide Interaktionseffekte Erf*Weibl und Erf2*Weibl simultan gleich Null sind.

Hab dementsprechend den Code verändert, aber leider immer noch ohne Erfolg:
HBA steht für den Höchsten Bildungsabschluss, sprich die Dummy Variable.

Code: Alles auswählen

lm.stdl_r <- lm(log(StdL) ~ HBA, data = stdl_44)
SSR_r <- deviance(lm.stdl_r)
SSR_r # SSR des restringierten Modells für Chowtest

Code: Alles auswählen

lm.stdl_u1 <- lm(log(StdL) ~ HBA + Erf*Weibl + I(Erf^2*Weibl), data = subset(stdl_44, Weibl == 1))
SSR_u1 <- deviance(lm.stdl_u1) # SSR fuer nicht restringiertes Modell

Code: Alles auswählen

lm.stdl_u2 <- lm(log(StdL) ~ HBA + Erf*Weibl + I(Erf^2*Weibl), data = subset(stdl_44, Weibl == 0))
SSR_u2 <- deviance(lm.stdl_u2) # SSR fuer nicht restringiertes Modell

Code: Alles auswählen

SSR_u <- SSR_u1 + SSR_u2
SSR_u # SSR fuer gesamtes nicht restringiertes Modell

Danke nochmals,

R_rookie

Deutsches R-Forum

SSR restringiertes / unrestringiertes Modell

SSR restringiertes / unrestringiertes Modell

Re: SSR restringiertes / unrestringiertes Modell

Re: SSR restringiertes / unrestringiertes Modell