Doc/example tweaks

gsk3 · Mar 28, 2009 · e630e60 · e630e60
1 parent df6fe2d
commit e630e60
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/geom-smooth.r b/R/geom-smooth.r
@@ -62,7 +62,8 @@ GeomSmooth <- proto(Geom, {
     grid$ucl <- err$fit + 1.96 * err$se.fit
     grid$lcl <- err$fit - 1.96 * err$se.fit
 
-    qplot(wt, mpg, data=mtcars, colour=factor(cyl)) + geom_smooth(aes(min=lcl, max=ucl), data=grid, stat="identity") 
+    qplot(wt, mpg, data=mtcars, colour=factor(cyl)) + 
+      geom_smooth(aes(ymin = lcl, ymax = ucl), data=grid, stat="identity") 
   }
 
 })
diff --git a/R/stat-smooth.r b/R/stat-smooth.r
@@ -76,8 +76,8 @@ StatSmooth <- proto(Stat, {
   )
   desc_outputs <- list(
     "y" = "predicted value",
-    "min" = "lower pointwise confidence interval around the mean",
-    "max" = "upper pointwise confidence interval around the mean",
+    "ymin" = "lower pointwise confidence interval around the mean",
+    "ymax" = "upper pointwise confidence interval around the mean",
     "se" = "standard error"
   )