@@ -19,13 +19,14 @@ chart <- densityplot( for(i in 1:2){ panel.densityplot( subset[subset$alignment == values[i],]$value, - col=colours[i] + col=colours[i], + pch='.' ) } } ) postscript(paste(getwd(),'../plots/average_gene_cost_density.eps',sep='/'), - width=10,height=10,onefile=FALSE,horizontal=FALSE, paper = "special") + width=10,height=5,onefile=FALSE,horizontal=FALSE, paper = "special") print(chart) graphics.off() analysis/003_estimate_amino_acid_frequency_and_cost/r/scripts/plot_gene_costs_density.R 284e95a4eccf4eaba722ab8d53f1296b0ead8007 Michael Barton mail@michaelbarton.me.uk http://github.com/michaelbarton/cost_in_evolution/commit/f3bc3444fccf14a52fb64e17c5c1e87333597005 f3bc3444fccf14a52fb64e17c5c1e87333597005 2008-12-04T09:16:41-08:00 2008-12-04T09:16:41-08:00 Updated plotting of gene cost density. More pretty. 4d941431368a19aba5427e1008231311d63e07c0 Michael Barton mail@michaelbarton.me.uk