knitr::opts_chunk$set(echo = FALSE)
# silent option knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = TRUE)
rm(list = ls()); gc()
library(plyr)       # data wrangling
library(dplyr)      # data wrangling
library(tidyr)      # data wrangling
library(reshape2)   # data wrangling
library(lubridate)  # data wrangling
library(purrr)      # data wrangling
library(Hmisc)      # data wrangling
library(moments)    # skewness and kurtosis
library(stringr)    # string operations
library(psych)      # cross-correlations, phi etc
library(stats)      # stats tests
library(exact2x2)   # one-sided McNemar test
library(car)        # applied regression
library(MASS)       # applied stats
library(lme4)       # mixed model regression
library(pscl)       # zero-inflated poisson regression
library(betareg)    # beta regression
library(glmmTMB)    # much of above regression models in one package
library(arm)        # regression convenience functions
library(rcompanion) # likelihood ratio tests of models etc
library(PMCMRplus)  # Pairwise Quade and posthoc teststo understand which grous significantly different
library(lmtest)     # further model testing
library(DHARMa)     # residuals analysis for glmmTMB models
library(epitab)     # contingency tables
library(xtable)     # latex tables
library(kableExtra) # latex tables
library(stargazer)  # regression tables
library(sjPlot)     # html plots of glmmTMB, brms etc plots
library(ggplot2)    # nice visuals
library(ggthemes)   # ggplot themes
library(GGally)     # gg pairs plots
library(corrplot)   # correlation plots
library(namer)      # automatic Rmd chunk namer
setwd("D:/Projects/LSE/Courses/4_PB451E_Dissertation/Analysis/")
namer::name_chunks("D:/Projects/LSE/Courses/4_PB451E_Dissertation/Analysis/DataAnalysis_20210124.Rmd")
source("Functions_20191121.R")
load("wrangled-data-2019-12-01.Rdata")
knitr::opts_chunk$set(echo = FALSE)
# silent option knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = TRUE)
rm(list = ls()); gc()
library(plyr)       # data wrangling
library(dplyr)      # data wrangling
library(tidyr)      # data wrangling
library(reshape2)   # data wrangling
library(lubridate)  # data wrangling
library(purrr)      # data wrangling
library(Hmisc)      # data wrangling
library(moments)    # skewness and kurtosis
library(stringr)    # string operations
library(psych)      # cross-correlations, phi etc
library(stats)      # stats tests
library(exact2x2)   # one-sided McNemar test
library(car)        # applied regression
library(MASS)       # applied stats
library(lme4)       # mixed model regression
library(pscl)       # zero-inflated poisson regression
library(betareg)    # beta regression
library(glmmTMB)    # much of above regression models in one package
library(arm)        # regression convenience functions
library(rcompanion) # likelihood ratio tests of models etc
library(PMCMRplus)  # Pairwise Quade and posthoc teststo understand which grous significantly different
library(lmtest)     # further model testing
library(DHARMa)     # residuals analysis for glmmTMB models
library(epitab)     # contingency tables
library(xtable)     # latex tables
library(kableExtra) # latex tables
library(stargazer)  # regression tables
library(sjPlot)     # html plots of glmmTMB, brms etc plots
library(ggplot2)    # nice visuals
library(ggthemes)   # ggplot themes
library(GGally)     # gg pairs plots
library(corrplot)   # correlation plots
library(namer)      # automatic Rmd chunk namer
setwd("D:/Projects/LSE/Courses/4_PB451E_Dissertation/Analysis/")
namer::name_chunks("D:/Projects/LSE/Courses/4_PB451E_Dissertation/Analysis/DataAnalysis_20210124.Rmd")
source("Functions_20191121.R")
load("wrangled-data-2019-12-01.Rdata")
load("risky_lotteries-2019-12-28.Rdata")
View(risky)
is(risky)
