# # draw a histogram of the source data using the BERT graphics device. # graph.histogram <- function(data, main="Histogram", xlabel="Data"){ # passing cell=T means "use the cell address as a unique # identifier". otherwise, use the name parameter to identify # the target shape. BERT.graphics.device(cell=T); # scrub the data (slightly) then generate a histogram x <- unlist( as.numeric( data )); hist( x, xlab=xlabel, main=main, col="pink", breaks=13, font.main=1); # we're done with the graphics device; we can shut it off. # this isn't strictly necessary, but there's a limit of 63 # active devices so it's a good idea. dev.off(); # returning TRUE indicates everything succeeded. T }