jguenther

# from https://www.biostars.org/p/77362/
#
# https://gist.github.com/alexpreynolds/5531166

plotEulergrid <- function (plotTitle, offCellColor, onCellColor, setNames, setCardinalities, setTotal, setTotalWithout, outputFilename, showWholeSets, ctsCardinalities) 
{
  library(grDevices)
  library(gplots)
  
  showWholeSets <- as.numeric(showWholeSets)

jguenther

#!/usr/bin/perl -w

# from https://www.biostars.org/p/77362/
#
# https://gist.github.com/alexpreynolds/5531166

use warnings;
use strict;
use Getopt::Long;
use Carp;