reg1

reg1.R

#On utilise ce fichier comme wd
setwd(dirname(rstudioapi::getSourceEditorContext()$path))
#On importe le tidyverse et les utilitaires 
library("tidyverse")
#Package pour la visualisation et tests statistiques :
library("ggpubr")
library("stargazer")
library("summarytools")
library("wesanderson") #echelle de couleurs
library("sandwich") #pour l'hétérogénité des erreurs
library("pander") #sert a faire des tableaux en latex.
library("lmtest") 
#Theme graphique perso
source("utilitaire.R")


#On importe les données.
data = read.csv("data/data_final.csv")



data2 = filter(data, treatment == "T2", is_cascade == 1)
myreg = glm(cascade_is_followed ~ 
                 overplacement_this_bloc + 
                 gender, data = data2,
             family = binomial(link = logit))
             summary(myreg)