## Not run:
# data(gs_limma_exp)
#
# cust = function(p, par){
# p = p + scale_fill_brewer(par$classes, type = "qual", palette = 1)
# return(p)
# }
#
# plot(gs_limma_exp, classes = "Tissue", panel_plot = panel_boxplot,
# panel_customize = cust, fontsize = 8)
# ## End(Not run)
Run the code above in your browser using DataLab