Just thought I'd dump this here, might be of use (or maybe addition).
vertexHistogram = function(linmodel, fdrmodel, column ){
#Generates a nice histogram of vertexLm t-values, with FDR levels labelled
legendline = c(c("FDR 5%", attributes(fdrmodel)$thresholds["0.05",column]), c("MAX", max(linmodel[,column])), c("MIN", min(linmodel[,column]) ) )
hist(linmodel[,column],breaks = seq(floor(min(linmodel[,column])),ceiling(max(linmodel[,column])), by=0.25),
xlab = paste( deparse(substitute(linmodel)), ",", column), main = paste( deparse(substitute(linmodel)), ",", column))
legend("topleft", legend = legendline)
lim <- par("usr")
rect(lim[1], lim[3], -attributes(fdrmodel)$thresholds["0.01",column], lim[4], border = '#00FF0055', col = '#00FF0077')
rect(attributes(fdrmodel)$thresholds["0.01",column], lim[3], lim[2], lim[4], border = '#00FF0055', col = '#00FF0077')
rect(-attributes(fdrmodel)$thresholds["0.01",column], lim[3], -attributes(fdrmodel)$thresholds["0.05",column], lim[4], border = '#00FF0055', col = '#00FF0055')
rect(attributes(fdrmodel)$thresholds["0.05",column], lim[3], attributes(fdrmodel)$thresholds["0.01",column], lim[4], border = '#00FF0055', col = '#00FF0055')
rect(-attributes(fdrmodel)$thresholds["0.05",column], lim[3], -attributes(fdrmodel)$thresholds["0.1",column], lim[4], border = '#FFFF0055', col = '#FFFF0055')
rect(attributes(fdrmodel)$thresholds["0.1",column], lim[3], attributes(fdrmodel)$thresholds["0.05",column], lim[4], border = '#FFFF0055', col = '#FFFF0055')
rect(-attributes(fdrmodel)$thresholds["0.1",column], lim[3], -attributes(fdrmodel)$thresholds["0.2",column], lim[4], border = '#FF000055', col = '#FF000055')
rect(attributes(fdrmodel)$thresholds["0.2",column], lim[3], attributes(fdrmodel)$thresholds["0.1",column], lim[4], border = '#FF000055', col = '#FF000055')
}