Publications by Jay Lasker
Matrix Rules and Measurement Invariance
Setup library(pacman); p_load(lavaan, psych) # Experiment 1 lowerExp1 <- ' 1 0.82 1 0.42 0.42 1 0.5 0.6 0.4 1 0.19 0.22 0.24 0.39 1 0.46 0.51 0.33 0.5 0.26 1' lowerCon1 <- ' 1 0.73 1 0.49 0.38 1 ...
9157 sym R (29819 sym/61 pcs)
Politics, Dialogue, and Remaining Friends
Setup library(pacman); p_load(lavaan, psych, janitor, ggplot2, ggpubr, ggthemr) ggthemr("dust") Because this is not my data and an application is required to obtain access to it, I am unable to share it. Rationale The IDEALS dataset (Rockenbach et al., 2020) contains data that can be used to assess how politics relates to people’s ability to...
4544 sym R (18066 sym/114 pcs) 1 img
Should students learn the real rate approximation?
Setup library(pacman); p_load(ggplot2, ggthemr, tidyr, dplyr, ggpubr) data <- data.frame( Flat = rep(.10, 101), Rate = seq(0, 1, .01)) data$RealRateNom <- ((1 + data$Rate)/(1 + data$Flat)) - 1 #Constant inflation rate data$AppRateNom <- data$Rate - data$Flat data$NomRateGap <- data$RealRateNom - data$AppRateNom data$InfRealRate <- ((1...
805 sym R (4666 sym/6 pcs) 3 img
Electricity and Income
Setup library(pacman); p_load(ggplot2, ggthemr, ggrepel, scales) data Rationale A recent graph depicts the relationship between country’s per capita GDPs (current US$) and their electricity consumption per capita in kilowatt-hour terms with the caption “No such thing as a low-energy rich country”. The graph is very misleading because it...
2294 sym R (6620 sym/13 pcs) 10 img
Happiness and Wellbeing vs. Income
Setup library(pacman); p_load(ggthemr, ggplot2, scales) ggthemr("dust") Rationale Killingsworth (2021) used a logged axis where income doubled between each tick to support the conclusion that happiness and wellbeing are linearly related to log income. The use of a continuous axis shows that the relationship is actually nonlinear in his data....
958 sym R (4941 sym/7 pcs) 5 img
2021 Replication of High Intermittent Generation System LCOE
Setup library(pacman); p_load(DT, ggplot2, ggrepel, sandwich, lmtest, ggthemr, gganimate, tidyverse, transformr, gifski, png) CRITR <- function(n, alpha = .05) { df <- n - 2; CRITT <- qt(alpha/2, df, lower.tail = F) CRITR <- sqrt((CRITT^2)/((CRITT^2) + df )) return(CRITR)} datatable(data, extensions = c("Buttons", "FixedColumns"), op...
6977 sym R (10160 sym/40 pcs) 10 img
Publication Bias in the Literature on Mental Health and Childhood Maltreatment
Setup library(pacman); p_load(ggplot2, DT, meta, metafor, dmetar, DescTools, tools, metasens) datatable(data, extensions = c("Buttons", "FixedColumns"), options = list(dom = 'Bfrtip', buttons = c('copy', 'csv', 'print'), scrollX = T, fixedColumns = list(leftColumns = 3))) d2rpb <- function(d, n1, n2){ m = n1 + n2 - 2 h = m/n1 + m/n2 r...
3294 sym R (73576 sym/22 pcs) 4 img
Reanalysis of Romanian Foster Care Data
Setup library(pacman); p_load(lavaan, dplyr) FITM <- c("chisq", "df", "nPar", "cfi", "rmsea", "rmsea.ci.lower", "rmsea.ci.upper", "aic", "bic") Rationale Humphreys et al. (2022) finally made the Bucharest Early Intervention Project IQ data available to analyze (https://osf.io/yd9se/?view_only=eca2485027ff49d487da424769400ba6). They conclude...
8562 sym R (36374 sym/27 pcs)
Spearman's Hypothesis in Old Data
Setup library(pacman); p_load(lavaan, psych) lowerWhite <- ' 1 0.29 1 0.22 0.36 1 0.3 0.47 0.45 1 0.34 0.4 0.21 0.36 1 0....
6709 sym R (128096 sym/46 pcs) 1 img
An Underpowered Analysis of the Relationship between Brain Size and Climate
Setup library(pacman); p_load(DT, sandwich, lmtest, pwr, InteractionPoweR) CRITR <- function(n, alpha = .05, rnd = 3) { df <- n - 2; CRITT <- qt(alpha/2, df, lower.tail = F) CRITR <- sqrt((CRITT^2)/((CRITT^2) + df )) return(round(CRITR, rnd))} CRITR(98) #Full Sample ## [1] 0.199 CRITR(30) #mid-Pleistocene ## [1] 0.361 CRITR(14) #Nean...
6451 sym R (10462 sym/60 pcs)