Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Merging from dev
  • Loading branch information
Dave Sturgill committed Jan 2, 2014
1 parent cf23310 commit 4faf60a
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion plotting_code.R
Expand Up @@ -69,6 +69,7 @@ mosaic(mymat, gp = gpar(fill = fill_colors, col = 0))

# Set the directory to
setwd("~/Desktop/spankitest/")
library(vcd)

splicecomp <- read.delim(file="F_vs_M_splicecomp/event_compare.out",stringsAsFactors=F)

Expand All @@ -78,7 +79,7 @@ mymat <- matrix(c(splicecomp$inc1[i],splicecomp$exc1[i],splicecomp$inc2[i],splic

# Make a mosaic plot
fill_colors <- matrix(c("blue", "blue", "red", "red"), ncol = 2)
mosaic(mymat, gp = gpar(fill = fill_colors, col = 0)
mosaic(mymat, gp = gpar(fill = fill_colors, col = 0))



Expand Down

0 comments on commit 4faf60a

Please sign in to comment.