supressWarnings RCppKohonen

e-sensing · Nov 20, 2024 · 7eadde8 · 7eadde8
1 parent 73495ee
commit 7eadde8
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/api_kohonen.R b/R/api_kohonen.R
@@ -374,7 +374,7 @@
     # create supersom
     switch (mode,
         online = {
-            res <- RcppSupersom(
+            res <- suppressWarnings({RcppSupersom(
                 data = data_matrix,
                 codes = init_matrix,
                 numVars = nvar,
@@ -385,10 +385,10 @@
                 radii = radius,
                 numEpochs = rlen,
                 distanceFunction = distance_ptr
-            )
+            )})
         },
         batch = {
-            res <- RcppBatchSupersom(
+            res <- suppressWarnings({RcppBatchSupersom(
                 data = data_matrix,
                 codes = init_matrix,
                 numVars = nvar,
@@ -398,10 +398,10 @@
                 radii = radius,
                 numEpochs = rlen,
                 distanceFunction = distance_ptr
-            )
+            )})
         },
         pbatch = {
-            res <- RcppParallelBatchSupersom(
+            res <- suppressWarnings({RcppParallelBatchSupersom(
                 data = data_matrix,
                 codes = init_matrix,
                 numVars = nvar,
@@ -412,7 +412,7 @@
                 numEpochs = rlen,
                 numCores = -1,
                 distanceFunction = distance_ptr
-            )
+            )})
         }
     )
     # extract changes