I can't tell whether that works since you're just using the same broken smart-fraction sf predictor; eg. sf(107,108) ~> 32818, while the first smart fraction page's table gives a Hong Kong regression line of 19817 which is very different from 33k.
The refinement doesn't help with my problem, no.
Hmmm. I agree that it doesn't match. What if by 'regression line' he means the regression line put through the sf-gdp data?
That is, you should be able to calculate sf as a fraction with
sf <- function(iq,c) ((1/2) * (1 + erf((iq-c)/(15*sqrt(2)))))
And then regress that against gdp, which will give you the various coefficients, and a much more sensible graph. (You can compare those to the SFs he calculates in the refinement, but those are with verbal IQ, which might require finding that dataset / trusting his, and have a separate IQ0.)
Comparing the two g...
Here's the new thread for posting quotes, with the usual rules: