Estimating the IQ of Ibram X Kendi
GPA z-score of below 0
SAT z-score of 0.1 (assuming mean=980 and SD=200)
PhD (z-score of eduattainment of 1.89)
Currently assuming correlation between GPA and IQ of 0.6, eduttainment and IQ of 0.55, SAT and IQ of 0.84.
This returns an estimate of 100 with a standard error of 7.
g <- rnorm(60000000, mean=-1)
iq <- 0.84*g + rnorm(60000000)*sqrt(1-0.84^2)
cs <- 0.6*g + rnorm(60000000)*sqrt(1-0.6^2)
gr <- 0.55*g + rnorm(60000000)*sqrt(1-0.55^2)
subby1 <- data.frame(iq, cs)
subby1$g = g
subby1$gr = gr
subby2 <- subset(subby1, (subby1$iq > 0.05 & subby1$iq < 0.15) & (subby1$cs < 0) & (subby1$gr > 1.84 & subby1$gr < 1.92))
mean(subby2$g)
sd(subby2$g)