Made cm.colors.strong the default

Author: CollinErickson

R/cf_4dim.R

@@ -62,7 +62,7 @@ cf_4dim <- function(func,
                     pts=NULL,
                     axes=TRUE, key.axes, key.title,
                     nlevels=20,
-                    color.palette=cm.colors,
+                    color.palette=cm.colors.strong,
                     edge_width=.04, cex.var_names=1.3,
                     bar=TRUE,
                     bar_width=.2,

R/cf_grid_screen.R

@@ -19,8 +19,8 @@
 #' @param lines_only Should no fill be used, only contour lines?
 #' @param levels  a set of levels which are used to partition the range of z. Must be strictly increasing (and finite). Areas with z values between consecutive levels are painted with the same color.
 #' @param nlevels  if levels is not specified, the range of z, values is divided into approximately this many levels.
-#' @param color.palette  a color palette function to be used to assign colors
-#' in the plot. Defaults to cm.colors. Other options include rainbow,
+#' @param color.palette  A color palette function to be used to assign colors
+#' in the plot. Defaults to cm.colors.strong. Other options include rainbow,
 #' heat.colors, terrain.colors, topo.colors, and function(x) {gray((1:x)/x)}.
 #' @param col  an explicit set of colors to be used in the plot. This argument overrides any palette function specification. There should be one less color than levels
 #' @param plot.title  statements which add titles to the main plot.
@@ -74,7 +74,7 @@ cf_grid <-
   function (x = seq(0, 1, length.out = nrow(z)), 
             y = seq(0, 1,length.out = ncol(z)), z, xlim = range(x, finite = TRUE),
             ylim = range(y, finite = TRUE), zlim = range(z, finite = TRUE),
-            levels = pretty(zlim, nlevels), nlevels = 20, color.palette = cm.colors,
+            levels = pretty(zlim, nlevels), nlevels = 20, color.palette = cm.colors.strong,
             col = color.palette(length(levels) - 1), plot.title, plot.axes,
             key.title, key.axes, asp = NA, xaxs = "i", yaxs = "i", las = 1,
             axes = TRUE, frame.plot = axes, bar=F, pts=NULL, reset.par=TRUE,

R/cf_highdim.R

@@ -27,8 +27,8 @@
 #' @param levels  a set of levels which are used to partition the range of z.
 #' Must be strictly increasing (and finite). Areas with z values between
 #' consecutive levels are painted with the same color.
-#' @param color.palette  a color palette function to be used to assign colors
-#' in the plot. Defaults to cm.colors. Other options include rainbow,
+#' @param color.palette  A color palette function to be used to assign colors
+#' in the plot. Defaults to cm.colors.strong. Other options include rainbow,
 #' heat.colors, terrain.colors, topo.colors, and function(x) {gray((1:x)/x)}.
 #' @param col  an explicit set of colors to be used in the plot.
 #' This argument overrides any palette function specification.
@@ -108,7 +108,7 @@ cf_highdim <- function(func, D, low=rep(0,D), high=rep(1,D),
                        average=FALSE, average_reps=1e4,
                        axes=TRUE, key.axes, key.title,
                        nlevels=20, levels=pretty(zlim, nlevels),
-                       color.palette=cm.colors, 
+                       color.palette=cm.colors.strong, 
                        col=color.palette(length(levels) - 1),
                        edge_width=.04, cex.var_names=1.3,
                        bar=TRUE,