Added gcf

Author: CollinErickson

NAMESPACE

@@ -9,6 +9,7 @@ export(cf_highdim)
 export(cm.colors.strong)
 export(csa)
 export(eval_over_grid_with_batch)
+export(gcf)
 export(gcf_data)
 export(gcf_func)
 export(gcf_grid)

R/cf.R

@@ -1,3 +1,5 @@
+#' Make contour plot from data or function
+#' 
 #' Simpler function for making contours with cf package.
 #' Won't give argument completion, so all must be specified
 #'
@@ -31,4 +33,4 @@ cf <- function(..., gg=FALSE) {
     stop("Data not recognized. Use cf_func for function or 
          cf_data for data or cf_grid for full grid of data.")
   }
-}
+}

R/gcf.R

@@ -0,0 +1,23 @@
+#' Make contour plot from data or function using ggplot2
+#' 
+#' Simpler function for making contours with cf package.
+#' Won't give argument completion, so all must be specified
+#'
+#' @param ... Arguments to be passed to cf_func or cf_data based on 
+#' data type of first argument. If D is given as argument, then it
+#' is passed to cf_highdim.
+#'
+#' @return Whatever is returned from other function, probably nothing.
+#' Will be a ggplot2 object if using gg=TRUE.
+#' @export
+#'
+#' @examples
+#' gcf(function(x){x[1]^2 - x[2]})
+#' x <- runif(20)
+#' y <- runif(20)
+#' z <- exp(-(x-.5)^2-5*(y-.5)^2)# + rnorm(20,0,.05)
+#' gcf(x,y,z)
+#' gcf(function(x){x[1]^2 - x[2]}, D=3)
+gcf <- function(...) {
+  cf(..., gg=TRUE)
+}