2020-10-19 15:32:34 +02:00
|
|
|
#' @title Set differences of two arrays
|
|
|
|
|
#' @description Loosely replicates the behavior of the homonym Matlab function
|
|
|
|
|
#' @param A first array
|
2020-11-09 07:31:33 +01:00
|
|
|
#' @param B second array
|
|
|
|
|
#' @param legacy if `TRUE`, preserves the behavior of the setdiff function from MATLAB R2012b and prior releases. (currently not supported)
|
2020-10-19 15:32:34 +02:00
|
|
|
#' @author Waldir Leoncio
|
2020-10-19 15:57:15 +02:00
|
|
|
setdiff_MATLAB <- function(A, B, legacy = FALSE) {
|
2021-11-10 14:02:35 +01:00
|
|
|
if (legacy) message("legacy=TRUE not supported. Ignoring.")
|
|
|
|
|
if (is(A, "numeric") & is(B, "numeric")) {
|
|
|
|
|
values <- sort(unique(A[is.na(match(A, B))]))
|
|
|
|
|
} else if (is(A, "data.frame") & is(B, "data.frame")) {
|
|
|
|
|
C <- A
|
|
|
|
|
exclude_rows <- vector()
|
|
|
|
|
for (r1 in seq_len(nrow(A))) {
|
|
|
|
|
for (r2 in seq_len(nrow(B))) {
|
|
|
|
|
if (all(A[r1, ] == B[r2, ])) {
|
|
|
|
|
exclude_rows <- append(exclude_rows, r1)
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
values <- C[-exclude_rows, ]
|
|
|
|
|
}
|
|
|
|
|
# TODO: add support for indices (if necessary)
|
|
|
|
|
return(values)
|
|
|
|
|
}
|
