Publications by Marcus

Generosity Vs Justice V8

25.10.2023

Table of contents Overview and Methodology Setup Load Data Reshaping data Attention check Demographics Correlation EFA Evaluating the correlation matrix Determining number of factors 5 Factors CFA Factor 1: Warmth Inferential Tests Factor 2: Competence Inferential Tests Factor 3: Moral Goodness Inferential Tests Factor 4: Decision Speed ...

2719 sym Python (96682 sym/93 pcs) 23 img

Generosity Vs Justice Pilot 2

20.09.2023

1 Overview & Methodology Study of third party forced-choice judgments of donors motivated by a justice or generosity virtue Data collected March 14th, 2023 N = 100 2 Key Findings Participants think justice-motivated donors are less moral, but more motivated by norm signaling desires 3 Setup Libraries and functions knitr::opts_chunk$set(warning...

633 sym Python (21490 sym/69 pcs) 27 img

I/S Study 1 (Wildfire)

15.09.2023

1 Setup Libraries and functions knitr::opts_chunk$set(warning = FALSE, message = FALSE) Mypackages <- c("lme4","tidyverse","effects","ggplot2","psych", "MASS","Rmisc","lmerTest","ggthemes", "knitr", "lsmeans","pastecs","sjstats","car","ordinal", "Rcpp","corrplot", "ggpubr", "EnvStats", "easyStats", "cowplot","see","datawizard",...

1253 sym Python (58128 sym/117 pcs) 10 img

I/S Study 1 (Texting While Driving)

15.09.2023

1 Setup Libraries and functions knitr::opts_chunk$set(warning = FALSE, message = FALSE) Mypackages <- c("lme4","tidyverse","effects","ggplot2","psych", "MASS","Rmisc","lmerTest","ggthemes", "knitr", "lsmeans","pastecs","sjstats","car","ordinal", "Rcpp","corrplot", "ggpubr", "EnvStats", "easyStats", "cowplot","see","datawizard",...

920 sym Python (52589 sym/110 pcs) 10 img

Generosity Vs Justice V3

15.08.2023

1 Overview & Methodology Study of third party forced-choice judgments of donors motivated by a justice or generosity virtue Data collected June 12, 2023 N = 200 2 Key Findings Participants think justice-motivated donors are less moral, but more motivated by norm signaling desires 3 Setup Libraries and functions knitr::opts_chunk$set(warning = ...

2169 sym Python (55115 sym/111 pcs) 40 img

Generosity vs Justice v5

15.08.2023

Table of contents Overview and Methodology Setup Load Data Reshaping data Attention check Demographics Correlation Changing to long format Linear Mixed Effects Political Perceptions Exploratory Factor Analyses Running Factor Analysis for Generosity, 5 factor Running Factor Analysis for Justice, 4 factor Running Factor Analysis Overall, 5 fact...

4508 sym Python (122920 sym/116 pcs) 32 img

Generosity vs Justice v6

15.08.2023

Table of contents Overview and Methodology Setup Load Data Reshaping data Attention check Demographics Correlation Changing to long format Political Perceptions Factor Analyses Confirmatory Factor Analysis for V3 Factors, 6 Factor Exploratory Factor Analysis, 5 Factor Linear Mixed Effects Models Mixed Effects Model Warmth (Factor 1) Mixed Eff...

5371 sym Python (155772 sym/82 pcs) 32 img

Intergenerational Reciprocity Study 3

15.08.2023

1 Setup Libraries and functions knitr::opts_chunk$set(warning = FALSE, message = FALSE) Mypackages <- c("lme4","tidyverse","effects","ggplot2","psych", "MASS","Rmisc","lmerTest","ggthemes", "knitr", "lsmeans","pastecs","sjstats","car","ordinal", "Rcpp","corrplot", "ggpubr", "EnvStats", "easyStats", "cowplot","see","datawizard",...

1261 sym R (167830 sym/229 pcs) 43 img

Concrete Moral Obligation Study

15.08.2023

1 Setup Libraries and functions knitr::opts_chunk$set(warning = FALSE, message = FALSE) Mypackages <- c("lme4","tidyverse","effects","ggplot2","psych", "MASS","Rmisc","lmerTest","ggthemes", "knitr", "lsmeans","pastecs","sjstats","car","ordinal", "Rcpp","corrplot", "ggpubr", "EnvStats", "easyStats", "cowplot","see","datawizard",...

699 sym Python (122095 sym/42 pcs) 7 img

Institutional Virtue Signaling Study 3

15.08.2023

1 Setup Libraries and functions knitr::opts_chunk$set(warning = FALSE, message = FALSE) Mypackages <- c("lme4","tidyverse","effects","ggplot2","psych", "MASS","Rmisc","lmerTest","ggthemes", "knitr", "lsmeans","pastecs","sjstats","car","ordinal", "Rcpp","corrplot", "ggpubr", "EnvStats", "easyStats", "cowplot","see","datawizard",...

3563 sym Python (134298 sym/158 pcs) 32 img