require coin for PCA (not purse)

bluefoxr · Jan 28, 2025 · 4c2242b · 4c2242b
1 parent ab06755
commit 4c2242b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/PCA.R b/R/PCA.R
@@ -85,6 +85,8 @@
 get_PCA <- function(coin, dset = "Raw", iCodes = NULL, Level = NULL, by_groups = TRUE,
                    nowarnings = FALSE, weights_to = NULL, out2 = "list"){
 
+  check_coin_input(coin)
+
   if(is.null(Level)){
     Level <- 1
   }