sig.text: Print text in color according to significance.
In haberdashPI/wright.lab.util: A set of utilitiy functions used in our lab.

TODO

1	sig.text(x, y = NULL, labels = seq_along(x), p.vals, ...)

`x`
`y`
`labels`
`p.vals`
`...`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, y = NULL, labels = seq_along(x), p.vals, ...) 
{
    args = list(...)
    args$x = x
    args$y = y
    args$labels = labels
    args$font = sapply(p.vals, function(p.val) {
        if (p.val < 0.05) {
            2
        }
        else if (p.val < 0.1) {
            3
        }
        else {
            1
        }
    })
    args$col = sapply(p.vals, function(p.val) {
        if (p.val < 0.05) {
            "red"
        }
        else if (p.val < 0.1) {
            "forestgreen"
        }
        else {
            "black"
        }
    })
    do.call("text", args)
  }