source( 'dens_compare_many.R' )
pdf( "test.pdf", width = 11, height = 8 )
par( mfrow = c(4,4) )
par( mgp = c(3,1,0) )
par( mar = c(4,4,1,1) )

for ( x in seq(1,8) ) {
	dats = list()
	data1 = data.frame(
		score = rnorm(100),
		gdtmm = rnorm(100)
	)
	data2 = data.frame(
		score = runif(100),
		gdtmm = runif(100)
	)
	dats[['data1']] = data1
	dats[['data2']] = data2

	dens_compare_many( dats, 'gdtmm', main = x )
	dens_compare_many( dats, 'score', main = x )
}

dev.off()