update figure dimensions for PNAS

Author: rBatt

Scripts/Plot/MainText/fig1_fatConcept.R

@@ -10,7 +10,7 @@ pm.2 <- c(1.5, 0.75, 0.5, 0)
 pm.3 <- c(1, 0.75, 0.5, 0)
 
 # dev.new(width=3.5, height=5)
-png("/Users/Battrd/Documents/School&Work/WiscResearch/FatTails/Figures/MainText/Fig1_fat_conceptFig.png", res=150, units="in", height=5, width=3.5)
+png("/Users/Battrd/Documents/School&Work/WiscResearch/FatTails/Figures/MainText/Fig1_fat_conceptFig.png", res=150, units="in", height=4.885714, width=3.42)
 cols1 <- rep(rep(c(1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 7, 7, 7, 7), each=4), 4) # first set of columns for layout matrix
 cols2 <- rep(rep(c(1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 7, 7, 7, 7), each=4), 1) # first set of columns for layout matrix
 cols3 <- rep(rep(c(4, 4, 4, 5, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7), each=4), 3) # second set of column for layout matrix

Scripts/Plot/MainText/fig2_xi_waiting.R

@@ -16,7 +16,7 @@ beanCol <- list(c(bFill[1]),
 				)
 
 # dev.new(width=3.5, height=6)
-png("/Users/Battrd/Documents/School&Work/WiscResearch/FatTails/Figures/MainText/Fig2_fatBeanXiWaiting.png", res=150, units="in", height=6, width=3.5)
+png("/Users/Battrd/Documents/School&Work/WiscResearch/FatTails/Figures/MainText/Fig2_fatBeanXiWaiting.png", res=150, units="in", height=5.862857, width=3.42)
 par(mfrow=c(2,1), mar=c(2,2.5,0.5,0.5), ps=10, cex=1, mgp=c(2, 0.4, 0), tcl=-0.3, family="Times")
 beanplot(sh_0~Type, data=data.fat, ylab="", yaxt="n", xaxt="n", border=bLine, col=beanCol, ll=0.01, beanlinewd=1.5)
 axis(side=2)