Configuration

knitr::opts_chunk$set(echo = T, message = F, warning = F, verbose = T, include = T,
                      fig.align = "center", dpi = 400)
#knitr::opts_knit$set(root.dir = file.path(rprojroot::find_rstudio_root_file(),"workspace"))

Chargement des packages et des fonctions additionnelles

À partir du fichier “setup.R” dans le répertoire scripts

rm(list = ls(all.names = T))
source("setup.R")
[1] "Packages chargés"
[1] "Fonctions additionnelles chargées"
getwd()
[1] "/Users/Elisee/GB_Owncloud/SPF/ISS/GDV/1_Etude_Sante-GDV/R-GDV_Descript_Auto/scripts"

Chargement des données et pondération

LDV <- readRDS(file.path(rprojroot::find_rstudio_root_file(),"data/20240318_GDVf_ldv.rds"))
source("LDV_transfo_vars.R")
LS0tCnRpdGxlOiAiQ1IgQW5hbHlzZSBVbml2YXJpw6llIExEViIKb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6CiAgICBjb2RlX2ZvbGRpbmc6IG5vbmUKICAgIHRoZW1lOiB5ZXRpCiAgICB0b2M6IHRydWUKICAgIHRvY19mbG9hdDogdHJ1ZQogIHdvcmRfZG9jdW1lbnQ6CiAgICB0b2M6IHRydWUKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiB0cnVlCiAgICBkZl9wcmludDogcGFnZWQKZGF0ZTogJ0RhdGUgZCcnYWN0dWFsaXNhdGlvbiA6IGByIGZvcm1hdChTeXMuRGF0ZSgpLCAiJWQvJW0vJVkiKWAnCnN1YnRpdGxlOiAiRXR1ZGUgc3VyIGxlIHNhbnTDqSBkZXMgR2VucyBkdSB2b3lhZ2UgZW4gTm91dmVsbGUgQXF1aXRhaW5lIDIwMTkgLSAyMDIyIgotLS0KCmBgYHs9aHRtbH0KPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KYm9keSAgICAgICAgey8qIE5vcm1hbCAqLyAgICAgZm9udC1mYW1pbHk6IkNhbGlicmkiOyBmb250LXNpemU6MTZweDsgZm9udC1zdHlsZTpib2xkOyBjb2xvcjpibGFjayAgfQp0ZCAgICAgICAgICB7LyogVGFibGUgKi8gICAgICBmb250LWZhbWlseToiQ2FsaWJyaSI7IGZvbnQtc2l6ZToxMnB4OyB9CmgxLnRpdGxlICAgIHsvKiBUaXRsZSAqLyAgICAgIGZvbnQtZmFtaWx5OiJDYWxpYnJpIjsgZm9udC1zaXplOjMwcHg7IGZvbnQtc3R5bGU6Ym9sZDsgY29sb3I6cmVkIH0KaDEuc3VidGl0bGUgey8qIFN1YnRpdGxlICovICAgZm9udC1mYW1pbHk6IkNhbGlicmkiOyBmb250LXNpemU6NTBweDsgZm9udC1zdHlsZTpib2xkOyBjb2xvcjpyZWQgfQpoMSAgICAgICAgICB7LyogSGVhZGVyIDEgKi8gICBmb250LWZhbWlseToiQ2FsaWJyaSI7IGZvbnQtc2l6ZToyMnB4OyBmb250LXN0eWxlOmJvbGQ7IGNvbG9yOmJsdWU7ICB9CmgyICAgICAgICAgIHsvKiBIZWFkZXIgMiAqLyAgIGZvbnQtZmFtaWx5OiJDYWxpYnJpIjsgZm9udC1zaXplOjE4cHg7IGZvbnQtc3R5bGVzOmJvbGQ7IGNvbG9yOmdyZWVuOyAgfQpoMyAgICAgICAgICB7LyogSGVhZGVyIDMgKi8gICBmb250LWZhbWlseToiQ2FsaWJyaSI7IGZvbnQtc2l6ZTozMHB4OyBmb250LXN0eWxlczpib2xkOyBjb2xvcjpyZWQgfQpjb2RlLnIgICAgICB7LyogQ29kZSBibG9jayAqLyBmb250LWZhbWlseToiQ2FsaWJyaSI7IGZvbnQtc2l6ZToxMnB4OyB9CnByZSAgICAgICAgIHsvKiBDb2RlIGJsb2NrIC0gIGRldGVybWluZXMgY29kZSBzcGFjaW5nIGJldHdlZW4gbGluZXMgKi8gZm9udC1zaXplOiA4cHg7IH0KPC9zdHlsZT4KYGBgCgojIENvbmZpZ3VyYXRpb24KYGBge3Igc2V0dXB9CmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVCwgbWVzc2FnZSA9IEYsIHdhcm5pbmcgPSBGLCB2ZXJib3NlID0gVCwgaW5jbHVkZSA9IFQsCiAgICAgICAgICAgICAgICAgICAgICBmaWcuYWxpZ24gPSAiY2VudGVyIiwgZHBpID0gNDAwKQoja25pdHI6Om9wdHNfa25pdCRzZXQocm9vdC5kaXIgPSBmaWxlLnBhdGgocnByb2pyb290OjpmaW5kX3JzdHVkaW9fcm9vdF9maWxlKCksIndvcmtzcGFjZSIpKQpgYGAKCiMgQ2hhcmdlbWVudCBkZXMgcGFja2FnZXMgZXQgZGVzIGZvbmN0aW9ucyBhZGRpdGlvbm5lbGxlcwoKw4AgcGFydGlyIGR1IGZpY2hpZXIgInNldHVwLlIiIGRhbnMgbGUgcsOpcGVydG9pcmUgc2NyaXB0cwoKYGBge3J9CnJtKGxpc3QgPSBscyhhbGwubmFtZXMgPSBUKSkKc291cmNlKCJzZXR1cC5SIikKZ2V0d2QoKQpgYGAKCiMgQ2hhcmdlbWVudCBkZXMgZG9ubsOpZXMgZXQgcG9uZMOpcmF0aW9uCgpgYGB7ciBDaGFyZ2VtZW50IGRlcyBkb25uw6llcyBwb25kZXJhdGlvbiAmIHBvc3Qtc3RyYXRpZmljYXRpb259CkxEViA8LSByZWFkUkRTKGZpbGUucGF0aChycHJvanJvb3Q6OmZpbmRfcnN0dWRpb19yb290X2ZpbGUoKSwiZGF0YS8yMDI0MDMxOF9HRFZmX2xkdi5yZHMiKSkKc291cmNlKCJMRFZfdHJhbnNmb192YXJzLlIiKQpgYGAK