Fix for edge case in breakpoints(h=0.5)

Author: GreatEmerald

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: strucchangeRcpp
-Version: 1.5-4-1.0.2
+Version: 1.5-4-1.0.2-9999
 Title: Testing, Monitoring, and Dating Structural Changes: C++ Version
 Authors@R: c(person(given = "Dainius", family = "Masiliunas", role = c("aut", "cre"),
              email = "pastas4@gmail.com", comment = c(ORCID = "0000-0001-5654-1277")),

NEWS

@@ -1,3 +1,8 @@
+Changes in Version 1.5-4-1.0.3
+
+  o Fix an edge-case in breakpoints.matrix() that resulted in an unhelpful error
+  when h = 0.5, and improve the error and warning messages in the function.
+
 Changes in Version 1.5-4-1.0.2
 
   o Fix issue where breakpoints.breakpointsfull(breaks=NULL) would return

R/breakpoints.R

@@ -63,22 +63,22 @@ breakpoints.matrix <- function(obj, y, h = 0.15, breaks = c("BIC", "LWZ", "RSS",
   {
     breakstat <- match.arg(breaks)
     breaks <- ceiling(n/h) - 2
-  } else {
-    if (length(breaks) > 1)
-      stop("Argument 'breaks' takes a single number or method for optimal break estimation")
-    if (breaks %% 1 != 0)
-      stop("Please enter an integer number of breaks")
-    if(breaks < 1) {
-      breaks <- 1
-      warning("number of breaks must be at least 1")
-    }
-      
-    if(breaks > ceiling(n/h) - 2) {
-      breaks0 <- breaks
-      breaks <- ceiling(n/h) - 2
-      warning(sprintf("requested number of breaks = %i too large, changed to %i", breaks0, breaks))
-    }
   }
+  if (length(breaks) > 1)
+    stop("Argument 'breaks' takes a single value (number or method for optimal break estimation)")
+  if (breaks %% 1 != 0)
+    stop("Argument 'breaks' must evaluate to an integer number")
+  if(breaks < 1) {
+    breaks <- 1
+    warning("Number of breaks must be at least 1, changed to 1")
+  }
+    
+  if(breaks > ceiling(n/h) - 2) {
+    breaks0 <- breaks
+    breaks <- ceiling(n/h) - 2
+    warning(sprintf("requested number of breaks = %i too large, changed to %i", breaks0, breaks))
+  }
+  
 
   hpc <- match.arg(hpc)
   if(hpc == "foreach") {