with specific ethnicities; the following code is a really quick stab
at the problem using the grid graphics engine in R.
-[[!sweavealike fig=1 echo=1 results="hide" code """
+[[!sweavealike fig=1 echo=1 results="hide" code="""
require(grid)
snp.position <- 1:10
snp.integers <- sample.int(5,size=length(snp.position),replace=TRUE)