max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Improvements to setdiff

Browse source
This commit is contained in:
Waldir Leoncio 2020-10-19 15:57:15 +02:00
parent eba8705d9e
commit 6b1a1910e3
3 changed files with 26 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
R/setdiff.R
View file

@ -6,8 +6,12 @@
#' @return
#' @author Waldir Leoncio
#' @export
setdiff <- function(A, B, legacy = FALSE) {
values <- sort(unique(A[is.na(match(A, B))]))
# browser() # TEMP
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)
}