Image:RaceIQ-mockup-SVG 1.svg

From Wikipedia, the free encyclopedia

• Image
• File history
• File links

[edit] 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()

[edit] Licensing

I, the creator of this work, hereby grant the permission to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. Subject to disclaimers.

File history

Click on a date/time to view the file as it appeared at that time.

• Search for duplicate files
• Edit this file using an external application

  See the setup instructions for more information.

File links