File:RaceIQ-mockup-SVG 1.svg

Summary
data from "Richard Lynn and Tatu Vanhanen (2006). IQ and Global Inequality. Washington Summit Publishers: Augusta, GA. ISBN 1593680252"

incomplete R source code

devSVG(file = "RaceIQ-mockup-SVG 1.svg", width=10,height=8,bg="white",onefile=TRUE,xmlHeader=TRUE) par(cex=2, lwd=1.5, mar=c(5,1,1,1)) x <- 0:200 b <- dnorm(x,mean=85,sd=13.0); h <- dnorm(x,mean=91,sd=14.2); w <- dnorm(x,mean=101.4,sd=14.7); a <- dnorm(x,mean=107,sd=15.4) plot(x,b,xlab="",ylab="",type="n",axes=FALSE,xlim=c(50,150)) lines(x,a,col="blue",lwd=3); lines(x,w,col="red",lwd=3); lines(x,h,col=rgb(0,.5,0),lwd=3); lines(x,b,col=rgb(.5,0,.5),lwd=3) legend("topright",rev(c("Black","Hispanic","White","East Asian")),fill=rev(c(rgb(.5,0,.5),rgb(0,.5,0),"red","blue","orange")),ncol=1,cex=1,bty="n") axis(1,c(55,70,85,100,115,130,145)) box dev.off