gistfile1.txt

rm(list = ls()) 
#### LIBRARIES ####
library(readr)
library(skimr)
library(DataExplorer)
library(tidyverse)
library(reshape2)
library(psych)
library(paletteer)
library(viridis)
library(data.table)
library(naniar)
library(lubridate)
library(ggplot2)
library(rms)
library(Hmisc)
library(boot)
library(coin)
library(parallel)
library(timereg)
library(car)
library(ggrepel)
library(gridExtra)
library(penalized)
library(glmpath)
library(glmnet)
library(survminer)
library(mice)
library(VIM)
library(splines)
library(lme4)
library(sjPlot)
library(sjmisc)
library(sjlabelled)
library(arm)
library(pbkrtest)
library(lmerTest)
library(plyr)
library(kml)
library(effects)
library(AICcmodavg)
library(parallel)
library(broom.mixed)
library(JM)
library(lattice)
library(JMbayes2)
library(sjstats)
library(pan)
library(miceadds)
library(glmmTMB)

marc_discrete<- theme(legend.position="right",legend.direction="vertical",
                      legend.title=element_text(colour="grey40"),
                      legend.margin=margin(grid::unit(0,"cm")),legend.text=element_text(colour="grey40",size=7,face="bold"),
                      legend.key.height=grid::unit(0.8,"cm"), legend.key.width=grid::unit(0.2,"cm"),                      axis.text.x=element_text(size=10,colour="grey40"),                      axis.text.y=element_text(vjust=0.2,colour="grey40"),
                      axis.ticks=element_line(size=0.4),
                      plot.background=element_blank(),
                      panel.border=element_blank(),
                      plot.margin=margin(0.7,0.4,0.1,0.2,"cm"), plot.title=element_text(colour="grey40", hjust=0,size=14,face="bold"))