lgatto

#Usimg @micahgallen's nice raincloud plot code 
#and fork of benmarwick/geom_flat_violin.R code

devtools::install_github('thomasp85/gganimate')

library(tidyverse)
library(gganimate)
library(RColorBrewer)
library(plyr)
#the following is a fork of benmarwick/geom_flat_violin.R

lgatto

library(base64enc)
library(RJSONIO)
library(httr)

default_key <- function () {
  key <- Sys.getenv("POSTMARKAPP_API_KEY")
  if (key == "") {
    stop("Either provide key or set envvar POSTMARKAPP_API_KEY", call. = FALSE)
  }
  key

lgatto

## http://gettinggeneticsdone.blogspot.co.uk/2012/09/deseq-vs-edger-comparison.html

library(DESeq)
library(edgeR)
library(VennDiagram)

# Read in data ------------------------------------------------------------

## Use pasilla data
datafile = system.file( "extdata/pasilla_gene_counts.tsv", package="pasilla" )