Fix CRAN NO_REMAP error

.Rbuildignore

@@ -11,3 +11,4 @@ cran-comments.md
 ^CRAN-SUBMISSION$
 ^codecov\.yml$
 revdep
+.vscode

.gitignore

@@ -9,3 +9,4 @@ src/models/*.o
 src/models/*.so
 src/models/*.dll
 docs
+.vscode/settings.json

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: CEC
 Type: Package
 Title: Cross-Entropy Clustering
-Version: 0.11.1
-Date: 2024-01-08
+Version: 0.11.2
+Date: 2024-10-10
 Authors@R: c(
     person("Kamieniecki", "Konrad", email = "[email protected]", 
       role = c("aut")),
@@ -30,6 +30,6 @@ Imports:
     utils
 NeedsCompilation: yes
 License: GPL-3
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Suggests: 
     covr

NEWS.md

@@ -1,3 +1,15 @@
+# CEC v0.11.2
+
+## New features
+
+* N/A. 
+
+## Minor improvements and fixes
+
+* Fixing CRAN NO_REMAP error with R > 4.5.0. 
+
+---
+
 # CEC v0.11.1
 
 ## New features

R/CEC-package.R

@@ -14,75 +14,10 @@
 #' 
 #' @seealso \code{\link{cec}}
 #' 
-#' @keywords package multivariate cluster models
+#' @keywords internal package multivariate cluster models
 #' 
-NULL
-
-
-#' @title Four Gaussian Clusters
-#'
-#' @description Matrix of 2-dimensional points forming four Gaussian clusters.
-#'
-#' @name fourGaussians
-#' 
-#' @docType data
-#' 
-#' @keywords datasets
-#' 
-#' @examples
-#' data(fourGaussians)
-#' plot(fourGaussians, cex = 0.5, pch = 19);
-#'
-NULL
-
+"_PACKAGE"
 
-#' @title Three Gaussian Clusters
-#'
-#' @description Matrix of 2-dimensional points forming three Gaussian clusters.
-#'
-#' @name threeGaussians
-#' 
-#' @docType data
-#' 
-#' @keywords datasets
-#' 
-#' @examples
-#' data(threeGaussians)
-#' plot(threeGaussians, cex = 0.5, pch = 19);
-#'
-NULL
-
-
-#' @title Mixed Shapes Clusters 
-#'
-#' @description Matrix of 2-dimensional points that form circular and elliptical 
-#'  patterns.
-#'
-#' @name mixShapes
-#' 
-#' @docType data
-#' 
-#' @keywords datasets
-#' 
-#' @examples
-#' data(mixShapes)
-#' plot(mixShapes, cex = 0.5, pch = 19);
-#'
-NULL
-
-
-#' @title T-Shaped Clusters
-#'
-#' @description Matrix of 2-dimensional points that form the letter T.
-#'
-#' @name Tset
-#' 
-#' @docType data
-#' 
-#' @keywords datasets
-#' 
-#' @examples
-#' data(Tset)
-#' plot(Tset, cex = 0.5, pch = 19);
-#'
+## usethis namespace: start
+## usethis namespace: end
 NULL

R/cec.R

@@ -26,8 +26,8 @@
 #'  Possible values are: "covariance", "fixedr", "spherical", "diagonal",
 #'  "eigenvalues", "all" (default).
 #'
-#'  Currently, if the \code{centers} argument is a vector, only a single type can
-#'  be used.
+#'  Currently, if the \code{centers} argument is a vector, only a single type 
+#'  can be used.
 #'
 #' @param iter.max The maximum number of iterations of the clustering algorithm.
 #'
@@ -62,8 +62,8 @@
 #'  visible in the results as NA in the "centers" matrix (as well as the
 #'  corresponding values in the list of covariances).
 #'
-#' @param interactive If \code{TRUE}, the result of clustering will be plotted after
-#'  every iteration.
+#' @param interactive If \code{TRUE}, the result of clustering will be plotted 
+#'  after every iteration.
 #'
 #' @param threads The number of threads to use or "auto" to use the default
 #'  number of threads (usually the number of available processing units/cores)
@@ -344,7 +344,7 @@ cec <- function(x,
 
     card.min <- max(card.min, n + 1)
     k <- max(var.centers)
-    startTime <- proc.time()
+    # startTime <- proc.time()
 
     centers.r <- list(init.method = init.method.name,
                       var.centers = as.integer(var.centers),
@@ -378,7 +378,7 @@ cec <- function(x,
     }
 
     k.final <- nrow(Z$centers)
-    execution.time <- as.vector((proc.time() - startTime))[3]
+    # execution.time <- as.vector((proc.time() - startTime))[3]
     Z$centers[is.nan(Z$centers)] <- NA
     tab <- tabulate(Z$cluster)
     probability <- vapply(tab, function(c.card) {
@@ -427,7 +427,7 @@ cec <- function(x,
 
     structure(
         list(data = x, cluster = Z$cluster, centers = Z$centers, probability = probability, cost.function = Z$energy,
-             nclusters = Z$nclusters, iterations = Z$iterations, time = execution.time, covariances = Z$covariances,
+             nclusters = Z$nclusters, iterations = Z$iterations, covariances = Z$covariances,
              covariances.model = covariances.model, means.model = means.model),
         class = "cec")
 }

R/utils.R

@@ -127,3 +127,72 @@ mouseset <- function(n = 4000, r.head = 2, r.left.ear = 1.1, r.right.ear = 1.1,
 
     M
 }
+
+
+#' @title Four Gaussian Clusters
+#'
+#' @description Matrix of 2-dimensional points forming four Gaussian clusters.
+#'
+#' @name fourGaussians
+#' 
+#' @docType data
+#' 
+#' @keywords datasets
+#' 
+#' @examples
+#' data(fourGaussians)
+#' plot(fourGaussians, cex = 0.5, pch = 19);
+#'
+NULL
+
+
+#' @title Three Gaussian Clusters
+#'
+#' @description Matrix of 2-dimensional points forming three Gaussian clusters.
+#'
+#' @name threeGaussians
+#' 
+#' @docType data
+#' 
+#' @keywords datasets
+#' 
+#' @examples
+#' data(threeGaussians)
+#' plot(threeGaussians, cex = 0.5, pch = 19);
+#'
+NULL
+
+
+#' @title Mixed Shapes Clusters 
+#'
+#' @description Matrix of 2-dimensional points that form circular and elliptical 
+#'  patterns.
+#'
+#' @name mixShapes
+#' 
+#' @docType data
+#' 
+#' @keywords datasets
+#' 
+#' @examples
+#' data(mixShapes)
+#' plot(mixShapes, cex = 0.5, pch = 19);
+#'
+NULL
+
+
+#' @title T-Shaped Clusters
+#'
+#' @description Matrix of 2-dimensional points that form the letter T.
+#'
+#' @name Tset
+#' 
+#' @docType data
+#' 
+#' @keywords datasets
+#' 
+#' @examples
+#' data(Tset)
+#' plot(Tset, cex = 0.5, pch = 19);
+#'
+NULL

src/cec_r.cpp

@@ -62,7 +62,7 @@ SEXP cec_r(SEXP x_r, SEXP centers_param_r, SEXP control_param_r, SEXP models_par
     }
 
     if (ex_what)
-        error("%s", ex_what);
+        Rf_error("%s", ex_what);
 
     try {
         SEXP r_res;
@@ -72,7 +72,7 @@ SEXP cec_r(SEXP x_r, SEXP centers_param_r, SEXP control_param_r, SEXP models_par
     } catch (std::exception &ex) {
         ex_what = ex.what();
     }
-    error("%s", ex_what);
+    Rf_error("%s", ex_what);
 }
 
 extern "C"
@@ -120,7 +120,7 @@ SEXP cec_split_r(SEXP x_r, SEXP centers_param_r, SEXP control_param_r, SEXP mode
     }
 
     if (ex_what)
-        error("%s", ex_what);
+        Rf_error("%s", ex_what);
 
     try {
         SEXP r_res;
@@ -130,7 +130,7 @@ SEXP cec_split_r(SEXP x_r, SEXP centers_param_r, SEXP control_param_r, SEXP mode
     } catch (std::exception &ex) {
         ex_what = ex.what();
     }
-    error("%s", ex_what);
+    Rf_error("%s", ex_what);
 }
 
 extern "C"
@@ -157,14 +157,14 @@ SEXP cec_init_centers_r(SEXP x_r, SEXP k_r, SEXP method_r) {
     }
 
     if (ex_what)
-        error("%s", ex_what);
+        Rf_error("%s", ex_what);
 
     try {
         SEXP r_res = put(*res);
         return r_res;
     } catch (exception &ex) {
         ex_what = ex.what();
-        error("%s", ex_what);
+        Rf_error("%s", ex_what);
     }
 }
 

src/cov.h

@@ -1,7 +1,7 @@
 #ifndef CEC_COV_H
 #define CEC_COV_H
 
-#include "vec.h"
+#include "vec.h" 
 
 namespace cec {