Publications by Jay Lasker
The Equal Environments Assumption
Setup Functions #Multiple people have used this, not mine, good for subsetting a data frame CF <- function(D, DC) { CV <- complete.cases(D[, DC]) return(D[CV, ])} #Not mine, good non-Grob for assembling plots multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL) { library(grid) plots <- c(list(...), plotlist) ...
29498 sym R (13009 sym/20 pcs) 4 img
Observed Differences Do Not Necessarily Reflect Latent Ones
Setup Packages library(pacman) p_load(lavaan, dplyr, knitr) Data Input Names = list("I", "S", "A", "V", "C", "DS", "PC", "PA", "BD", "OA", "CO", "HM", "GC", "NR", "T", "WO", "MA", "MS", "PS", "FP", "AR", "R", "RD", "RU") lowerw = ' 1 ...
10486 sym R (11753 sym/11 pcs) 3 tbl
Millsap's Approach to Residual Invariance Failure
Setup Functions MOES <- function(T1, T2, S1, S2) { ES = (T1 - T2) / (S1^2 - S2^2) return(ES)} Equations \[\sigma_{jk}^2 = \lambda_j'\Phi_k\lambda_j+\theta_{jk}\] \[\delta_{\sigma_{jk}^2} = \frac{\theta_{j1}-\theta_{j2}}{\sigma_{j1}^2-\sigma_{j2}^2}\] Rationale There are multiple effect sizes available for quantifying the effects of diffe...
4373 sym R (754 sym/5 pcs)
The Reynolds Intellectual Assessment Scales are Unbiased with Respect to Migrant Background
Startup Functions #Congruence coefficient formula because Psych's fa.congruence function is broken CONGO <- function(F1, F2) { PHI = sum(F1*F2) / sqrt(sum(F1^2)*sum(F2^2)) return(PHI)} Packages library(pacman) p_load(lavaan, semPlot, psych, qpcR, ggplot2) Data Input #Correlation matrices lowerNAT = ' 1 0.58 ...
7632 sym R (27618 sym/65 pcs) 9 img 2 tbl
Ability and Prior Job Knowledge in Complex Training Performance
Startup Packages library(pacman) p_load(psych, lavaan, semPlot, cowplot, gridExtra, ggplot2, knitr, dplyr) Functions #Congruence coefficient formula because Psych's fa.congruence function is broken CONGO <- function(F1, F2) { PHI = sum(F1*F2) / sqrt(sum(F1^2)*sum(F2^2)) return(PHI)} #ALTCONGO <- function(F1, F2) { # FA = mean(F1); ...
2994 sym R (40471 sym/131 pcs) 17 img 22 tbl
Estimating Between-Group Heritability
Startup library(pacman) p_load(ggplot2, meta, metafor, reshape2, latex2exp) Functions #Deviation methods #Jensen's (1973) between-group heritability BGHJ <- function(PM1, PM2, MO) { ME <- PM1 - ((PM1 - PM2)/2) MOD <- PM1 - MO MED <- PM1 - ME BGHAD <- MOD/MED if(BGHAD > 1) BGHAD <- abs(1 + (1 - (MOD/MED))) return(BGHAD)} ...
82666 sym R (8315 sym/42 pcs) 6 img 1 tbl
A cross-cultural comparison between South African and British students on the Wechsler Adult Intelligence Scales Third Edition (WAIS-III)
Startup Packages library(pacman) p_load(psych, EGAnet, lavaan, qgraph, semPlot, qpcR, dplyr, tidyr, knitr, ggplot2) Functions #From Gunn, Grimm & Edwards (2019) SDI2.UDI2 = function(p, loading1, loading2, intercept1, intercept2, stdev2, fmean2, fsd2, nodewidth = 0.01, lowerLV = -5, upperLV = 5) { LV = seq(lowerLV,upperLV,nodewidth) D...
57524 sym R (128518 sym/421 pcs) 13 img 9 tbl
Morbid Curiosity
Startup library(pacman) p_load(lavaan, qgraph, psych, qpcR, ggplot2, igraph, semPlot) #d = read.csv("mcs_cfa_data.csv") #Let's see if we have all 24 variables we need (i.e., B1, B2, B4, B5, B6, B7, M2, M3, M4, M5, M6, M7, S1, S2, S3, S5, S6, S7, V2, V3, V4, V5, V6, V7) psych::describe(d) ## vars n mean sd median trimmed mad min max...
8844 sym R (35709 sym/31 pcs) 7 img 1 tbl
Comprehensively Assessing the Jensen Effect
Startup Packages library(pacman) p_load(psych, dplyr, kirkegaard, gridExtra, cowplot, meta) Functions #Congruence coefficient formula because Psych's fa.congruence function is broken CONGO <- function(F1, F2) { PHI = sum(F1*F2) / sqrt(sum(F1^2)*sum(F2^2)) return(PHI)} Rationale There is a lot of work assessing so-called “Jensen effe...
4302 sym R (10580 sym/12 pcs) 1 img
Almost-sure p-values
Rationale and Functions While reviewing a paper on palliative care for Indigenous and non-Indigenous Australians for the International Journal of Environmental Research and Public Health (IJERPH; Woods et al., 2020), I noticed that the authors stated that the confidence in their results was bolstered by their large sample size. I pointed out in m...
11690 sym R (3541 sym/10 pcs) 1 img