[Vectis-commits] r12 - pkg/R

[noreply at r-forge.r-project.org]

Author: cbattles
Date: 2013-04-02 22:34:42 +0200 (Tue, 02 Apr 2013)
New Revision: 12

Modified:
   pkg/R/Cap_anal.R
Log:
small error fixes due to roll-ups


Modified: pkg/R/Cap_anal.R
===================================================================
--- pkg/R/Cap_anal.R	2013-04-02 20:21:38 UTC (rev 11)
+++ pkg/R/Cap_anal.R	2013-04-02 20:34:42 UTC (rev 12)
@@ -206,7 +206,7 @@
 
   #Initial plot definition
   p <- ggplot(data, aes(x = data)) +
-              {theme(plot.margin = unit(c(2,0,.5,0), "lines"), 
+              theme(plot.margin = unit(c(2,0,.5,0), "lines"), 
                     panel.grid.minor = element_blank(),
                     panel.grid.major = element_blank(),
                     panel.background = element_rect(fill = "white", color = "gray0"), 
@@ -237,7 +237,7 @@
                        target + 3 * S_within, 
                        target + 3 * S_overall)) +
               ylim(0, max(1.05 * dens_max, 1.05 * freq_max, 
-                          1.05 * with_max, 1.05 * over_max))}
+                          1.05 * with_max, 1.05 * over_max))
   
   #Add histogram
   p <- p + geom_histogram(aes(y=..density..),        
@@ -369,7 +369,7 @@
   }
   
   # Manually Create Chart Legend  
-  Leg_leg <- {ggplot()+
+  Leg_leg <- ggplot()+
     xlim(c(0,1))+ylim(c(.2,1))+
     theme(plot.margin = unit(c(2,1,6,0), "lines"),
           panel.grid.minor = element_blank(),
@@ -413,8 +413,8 @@
                   family = "sans"), 
               hjust = 0, vjust = 0.3,
               color = "gray0", size=4)} 
-  }
   
+  
   # Create Cp Legend
   CPM_leg <- {ggplot()+
     xlim(c(0,1))+ylim(c(0,1))+