Estimating the IQ of Richard Lynn
I have it on decent authority that Richard Lynn once took an IQ test and scored 132.
He got his PhD at cambridge - I assume he got it in the mid 50s, which yields an educational attainment z-score of 2.2
Currently assuming reliability of IQ test of 0.9, and a correlation between educational attainment and IQ of 0.55.
Simulations conclude he has an IQ of 131 and SE of 6.4
g <- rnorm(60000000)
ls <- 0.9*g + rnorm(60000000)*sqrt(1-0.9^2)
cs <- 0.55*g + rnorm(60000000)*sqrt(1-0.55^2)
subby1 <- data.frame(ls, cs)
subby1$g = g
subby2 <- subset(subby1, (subby1$cs < 2.25) & (subby1$cs > 2.15) & (subby1$ls < 2.15) & (subby1$ls > 2.11))
mean(subby2$g)
sd(subby2$g)