bgall

# Show that social desirability not only produces biased
# "descriptive statistics" (e.g. group means), but can
# produce treatment effects of the opposite sign of
# the true effect. You cannot simply ignore social
# desirability under the assumption that it does
# not affect estimates of causal parameters since
# measures pre-treatment and post-treatment are
# both subject to social desirability.
#
# Note that this arises due to social desirability

bgall

# Compare the performance of two purportedly-fast ways of generating dummy variables from character vector.
# NOTE: fastDummies retains the original variable by default while modeldb does not

# Dependencies
library(microbenchmark)
library(fastDummies)
library(modeldb)
library(dplyr)

# Simulate data: 1 million rows, 1 variable with 26 unique values

bgall

library(dplyr)


# Wrap data simulation in a function
sim_data <- function(N) {
  ###########################################################################
  # parameters
  ###########################################################################
  
  set.seed(123)