Estimating the IQ of Scarlett Johansson

SAT score of 1080 - given the M=980 and SD=200 I use for this time period, that’s roughly 0.5 SD above the mean. She also has a net worth of roughly 165 million, a wealth z-score of roughly 4.

Currently assuming correlation between IQ and SAT of 0.84 and IQ/wealth of 0.2.

Simulation suggests she has an IQ of roughly 109 with an SE of 9

##################
g <- rnorm(60000000)
iq <- 0.9*g + rnorm(60000000)*sqrt(1-0.9^2)
c1 <- 0.7*g + rnorm(60000000)*sqrt(1-0.7^2)
c2 <- 0.7*g + rnorm(60000000)*sqrt(1-0.7^2)
bs <- 0.55*g + rnorm(60000000)*sqrt(1-0.55^2)

subby1 <- data.frame(iq, c1)
subby1$g = g
subby1$c2 = c2
subby1$bs = bs

subby2 <- subset(subby1, (subby1$iq < 1.3 & subby1$iq > 1.21) & (subby1$c1 > 1.8 & subby1$c1 < 2) & (subby1$c2 > 1.55 & subby1$c2 < 1.75) & (subby1$bs > 2.04 & subby1$bs < 2.44))
mean(subby2$g)
sd(subby2$g)