older edits

Author: rsbivand

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: classInt
-Version: 0.4-9
-Date: 2023-02-21
+Version: 0.4-10
+Date: 2023-08-15
 Title: Choose Univariate Class Intervals
 Authors@R: c(
   person("Roger", "Bivand", role=c("aut", "cre"), email="[email protected]", comment=c(ORCID="0000-0003-2392-6140")),

R/classInt.R

@@ -168,8 +168,17 @@ classIntervals <- function(var, n, style="quantile", rtimes=3, ..., intervalClos
       svar <- scale(var)
       pars <- c(attr(svar, "scaled:center"), attr(svar, "scaled:scale"))
       names(pars) <- c("center", "scale")
-      sbrks <- pretty(x=svar, n=n, ...)
+      dots <- list(...)
+      if (is.null(dots$sd_m)) {
+        sbrks <- pretty(x=svar, n=n, ...)
+      } else {
+        sbrks <- dots$sd_m
+        stopifnot(is.numeric(sbrks))
+      }
       brks <- c((sbrks * pars[2]) + pars[1])
+      if (!is.finite(brks[1])) brks[1] <- min(var)
+      if (!is.finite(brks[length(brks)])) brks[length(brks)] <- max(var)
+      if (any(order(brks) != 1:length(brks))) brks <- unique(sort(brks))
     } else if (style =="equal") {
       brks <- seq(min(var), max(var), length.out=(n+1))
     } else if (style =="pretty") {

man/classIntervals.Rd

@@ -47,7 +47,7 @@ classIntervals2shingle(x)
 \details{
   The "fixed" style permits a "classIntervals" object to be specified with given breaks, set in the \code{fixedBreaks} argument; the length of \code{fixedBreaks} should be n+1; this style can be used to insert rounded break values.
 
-  The "sd" style chooses breaks based on \code{pretty} of the centred and scaled variables, and may have a number of classes different from n; the returned \code{par=} includes the centre and scale values.
+  The "sd" style chooses breaks based on \code{pretty} of the centred and scaled variables, and may have a number of classes different from n; the returned \code{par=} includes the centre and scale values. If argument \code{sd_m} is given as a numeric vector of multiples to apply to the standard deviation such as \code{c(-Inf, -2, -1, 0, 1, 2, +Inf)}
 
   The "equal" style divides the range of the variable into n parts.