Update examples of the functions selectRHLP and selectMRHLP

Update the examples of the functions selectRHLP and selectMRHLP because their running time is still above 10s on Windows machines

R/selectMRHLP.R

@@ -30,12 +30,12 @@
 #' data(multivtoydataset)
 #'
 #' # Let's select a MRHLP model on a multivariate time series with 3 regimes:
-#' data <- multivtoydataset[1:420, ]
+#' data <- multivtoydataset[1:320, ]
 #' x <- data$x
 #' y <- data[, c("y1", "y2", "y3")]
 #'
 #' selectedmrhlp <- selectMRHLP(X = x, Y = y, Kmin = 2, Kmax = 4,
-#'                              pmin = 0, pmax = 2)
+#'                              pmin = 0, pmax = 1)
 #'
 #' selectedmrhlp$summary()
 selectMRHLP <- function(X, Y, Kmin = 1, Kmax = 10, pmin = 0, pmax = 4, criterion = c("BIC", "AIC"), verbose = TRUE) {

R/selectRHLP.R

@@ -29,10 +29,10 @@
 #' data(univtoydataset)
 #'
 #' # Let's select a RHLP model on a time series with 3 regimes:
-#' data <- univtoydataset[1:420,]
+#' data <- univtoydataset[1:320,]
 #'
 #' selectedrhlp <- selectRHLP(X = data$x, Y = data$y,
-#'                            Kmin = 2, Kmax = 4, pmin = 0, pmax = 2)
+#'                            Kmin = 2, Kmax = 4, pmin = 0, pmax = 1)
 #'
 #' selectedrhlp$summary()
 selectRHLP <- function(X, Y, Kmin = 1, Kmax = 10, pmin = 0, pmax = 4, criterion = c("BIC", "AIC"), verbose = TRUE) {