benwhalley

"mediationexample1.csv"

benwhalley

benwhalley

benwhalley

benwhalley

library(tidyverse)
set.seed(1234)
df <- data_frame(g=c(rep(1, 100), rep(2,100))) %>% 
  mutate(y = rnorm(n(), 0, 1.5) + .5 * g) 

t.test(y~g, data=df)

df %>% 
  sample_n(50) %>% 
  ggplot(aes(g,y)) + stat_summary(fun.data=mean_cl_boot)

benwhalley

benwhalley

library(DiagrammeR)
library(DiagrammeRsvg)

knit_gv <- function(code, filename=NULL, width=NULL, height=800){

  assetpath <- "assets"
  dir.create(assetpath, showWarnings = F)

  if (!is.character(knitr::current_input())){
    format <- "png"

benwhalley

m <- "drink.to.cope ~ work.distress + work.pressure + lack.job.control
alcohol.consumption ~ work.distress + work.pressure + lack.job.control
drink.problems ~ work.distress + work.pressure + lack.job.control"

semPlot::semPaths(semPlot::semPlotModel(m))

benwhalley

Package,LibPath,Version,Priority,Depends,Imports,LinkingTo,Suggests,Enhances,License,License_is_FOSS,License_restricts_use,OS_type,MD5sum,NeedsCompilation,Built
afex,/usr/local/lib/R/3.5/site-library,0.20-2,NA,"R (>= 3.1.0), lme4 (>= 1.1-8), emmeans","stringr, coin, pbkrtest (>= 0.4-1), lmerTest, car, reshape2,
stats, methods",NA,"xtable, parallel, plyr, optimx, nloptr, knitr, rmarkdown,
R.rsp, lattice, latticeExtra, multcomp, testthat, mlmRev,
dplyr, tidyr, dfoptim, Matrix, psych, ggplot2, MEMSS, effects,
carData",NA,GPL (>= 2),NA,NA,NA,NA,no,3.5.0
broom,/usr/local/lib/R/3.5/site-library,0.4.4,NA,NA,"plyr, dplyr, tidyr, psych, stringr, reshape2, nlme, methods",NA,"knitr, boot, survival, gam, glmnet, lfe, Lahman, MASS, rgeos,
sp, maps, maptools, multcomp, testthat, lme4, zoo, lmtest, plm,
biglm, ggplot2, nnet, geepack, AUC, ergm, network,
statnet.common, xergm, btergm, binGroup, Hmisc, bbmle, gamlss,

benwhalley

slugify <- function(text){
  text %>% 
    tolower() %>% 
    str_trim() %>% 
    str_replace_all('[\\s-]+', "-") %>% 
    str_remove_all('[^\\w-]+')
}