Some absolute figures:
R> lw2009 <- read.csv("2009.csv"); lw2011 <- read.csv("2011.csv"); lw2012 <- read.csv("2012.csv") R> R> sum(as.integer(as.character(lw2009$IQ)) > 140, na.rm=TRUE) [1] 31 R> sum(as.integer(as.character(lw2011$IQ)) > 140, na.rm=TRUE) [1] 131 R> sum(as.integer(as.character(lw2012$IQ)) > 140, na.rm=TRUE) [1] 120 R> R> sum(as.integer(as.character(lw2009$IQ)) > 150, na.rm=TRUE) [1] 20 R> sum(as.integer(as.character(lw2011$IQ)) > 150, na.rm=TRUE) [1] 53 R> sum(as.integer(as.character(lw2012$IQ)) > 150, na.rm=TRUE) [1] 42
Some absolute figures: