Code R — Quartet Causal

Code reproductible Quarto pour la démonstration du Webinaire #1

✅ Inscription confirmée !

Voici le code complet de la démonstration Quartet Causal. Vous pouvez le télécharger et l’exécuter dans RStudio.

install.packages(c(
  « tidyverse »,
  « ggdag »,
  « patchwork »,
  « broom »
))

library(tidyverse)
library(ggdag)
set.seed(42)
n <- 1000

# Dataset 1 : Causalité directe X -> Y
quartet_1 <- tibble(
  X = rnorm(n),
  Y = 0.5 * X + rnorm(n, sd = 0.5)
)

# Dataset 2 : Confondant caché Z
quartet_2 <- tibble(
  Z = rnorm(n),
  X = 0.7 * Z + rnorm(n, sd = 0.5),
  Y = 0.7 * Z + rnorm(n, sd = 0.5)
)

# Voir le fichier complet pour les datasets 3 et 4…

Une question sur le code ?

contact@stat4research.com