Translated BAPS::noIndex into R

R/noIndex.R

@@ -0,0 +1,19 @@
+#' @title No index
+#' @description Checks that the data contains no index column.
+#' @details As input, this function takes two variables from a mixture/admixture
+#' result structure.
+#' @return puredata: a data contains no index column.
+#' @export
+noIndex <- function  (data, noalle) {
+    limit <- ifelse(is(noalle, "matrix"), ncol(noalle), length(noalle))
+    if (size(data, 2) == limit + 1) {
+        if (is(data, "matrix")) {
+            puredata <- data[, -ncol(data)] # remove the index column
+        } else {
+            puredata <- data[-length(data)]
+        }
+    } else {
+        puredata <- data
+    }
+    return(puredata)
+}