17 lines
No EOL
580 B
R
17 lines
No EOL
580 B
R
#' @title Set differences of two arrays
|
|
#' @description Loosely replicates the behavior of the homonym Matlab function
|
|
#' @param A first array
|
|
#' @param B second awway
|
|
#' @param legacy if `TRUE`, preserves the behavior of
|
|
#' @return
|
|
#' @author Waldir Leoncio
|
|
#' @export
|
|
setdiff_MATLAB <- function(A, B, legacy = FALSE) {
|
|
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")) {
|
|
stop("Not implemented for data frames")
|
|
}
|
|
# TODO: add support for indices (if necessary)
|
|
return(values)
|
|
} |