Ich habe eine Frage und hoffe, dass Ihr mir helfen könnt. Ich bin neu in R und möchte gerne einige Daten für die Praxis simulieren. Ich würde gerne ein HLM entwerfen, aber im Moment bin ich überfordert.
Ich würde gerne das folgende Szenario simulieren: Angenommen, ich möchte die Entwicklung des Burnout in einem Unternehmen messen. Mein Prädiktor dafür ist der allgemeine Bindungsstil der Mitarbeiter. Die These ist also, dass der Bindungsstil (Angst/Vermeidung) die Entwicklung von Burnout am Arbeitsplatz vorhersagt. Beide Werte werden mittels Fragebogen erfasst. Ich möchte nun mit einer verschachtelten Struktur arbeiten.
Sagen wir, wir haben 300 Mitarbeiter und 20 Manager.
Ich möchte nun die folgende Hypothese untersuchen: Die allgemeine Charakteristik der Bindungsdimension "Vermeiden" von Vorgesetzten sagt das Burnout-Risiko von Mitarbeitern voraus. Je höher die Bindungs-Vermeidung bei Führungskräften ist, desto höher ist das Burnout-Risiko bei Untergebenen mit ängstlichem Bindungsstil.
Wie kann ich dies erreichen? Ich habe keine Ahnung. Aber ich würde gerne verstehen, wie man das macht.
Ich würde die Variablen wie folgt zunächst in einem linearen Modell simulieren. Der Einfachheit halber habe ich die Mittelwerte und SD standardisiert. Angenommen, ich definiere die Variablen wie folgt:
# units
n = 300
n1 = 20
# causal effects
ce_1 <- 0.3 # causal effect of general attachment anxiety on burnout
ce_2 <- 0.6 # causal effect of general attachment anxiety on specific attachment anxiety to supervisor
ce_3 <- 0.6 # causal effect of general attachment anxiety on specific attachment anxiety to organization
ce_4 <- 0.3 # causal effect of general attachment avoidance supervisor on burnout
ce_5 <- 0.7 # causal effect of general attachment avoidance supervisor on specific attachment anxiety to supervisor
ce_6 <- 0.7 # causal effect of general attachment avoidance supervisor on specific attachment anxiety to organization
ce_7 <- 0.4 # causal effect of specific attachment anxiety to supervisor on burnout
ce_8 <- 0.4 # causal effect of specific attachment anxiety to organization on burnout
# variables
#General attachment anxiety subordinate (moderator)
Code: Alles auswählen
genAttSub <- rnorm(n, mean =0, sd = 1.0)
Code: Alles auswählen
genAttSV <- rnorm(n1, mean =0, sd = 1.0)
Code: Alles auswählen
specAttSub <- rnorm(n, mean =0, sd = 1.0) + ce_2 * genAttSub + ce_5 * genAttSV
Code: Alles auswählen
specAttOrg <- rnorm(n, mean =0, sd = 1.0) + ce_3 * genAttSub + ce_6 * genAttSV
Code: Alles auswählen
exh <- rnorm(n, mean =0, sd = 1.0) + ce_1 * genAttSub + ce_4 * genAttSV + ce_7 * specAttSub + ce_8 * specAttOrg
Was muss ich tun? Könnt ihr mir helfen?
Vielen Dank, Tom.