File: merge_rev.Rd

package info (click to toggle)
r-cran-bit 4.6.0%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,000 kB
  • sloc: ansic: 5,145; sh: 13; makefile: 6
file content (249 lines) | stat: -rw-r--r-- 9,562 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/merge.R
\name{merge_rev}
\alias{merge_rev}
\alias{merge_match}
\alias{merge_in}
\alias{merge_notin}
\alias{merge_duplicated}
\alias{merge_anyDuplicated}
\alias{merge_sumDuplicated}
\alias{merge_unique}
\alias{merge_union}
\alias{merge_setdiff}
\alias{merge_symdiff}
\alias{merge_intersect}
\alias{merge_setequal}
\alias{merge_rangein}
\alias{merge_rangenotin}
\alias{merge_rangesect}
\alias{merge_rangediff}
\alias{merge_first}
\alias{merge_last}
\alias{merge_firstin}
\alias{merge_lastin}
\alias{merge_firstnotin}
\alias{merge_lastnotin}
\title{Fast functions for sorted sets of integer}
\usage{
merge_rev(x)

merge_match(x, y, revx = FALSE, revy = FALSE, nomatch = NA_integer_)

merge_in(x, y, revx = FALSE, revy = FALSE)

merge_notin(x, y, revx = FALSE, revy = FALSE)

merge_duplicated(x, revx = FALSE)

merge_anyDuplicated(x, revx = FALSE)

merge_sumDuplicated(x, revx = FALSE)

merge_unique(x, revx = FALSE)

merge_union(
  x,
  y,
  revx = FALSE,
  revy = FALSE,
  method = c("unique", "exact", "all")
)

merge_setdiff(x, y, revx = FALSE, revy = FALSE, method = c("unique", "exact"))

merge_symdiff(x, y, revx = FALSE, revy = FALSE, method = c("unique", "exact"))

merge_intersect(
  x,
  y,
  revx = FALSE,
  revy = FALSE,
  method = c("unique", "exact")
)

merge_setequal(x, y, revx = FALSE, revy = FALSE, method = c("unique", "exact"))

merge_rangein(rx, y, revx = FALSE, revy = FALSE)

merge_rangenotin(rx, y, revx = FALSE, revy = FALSE)

merge_rangesect(rx, y, revx = FALSE, revy = FALSE)

merge_rangediff(rx, y, revx = FALSE, revy = FALSE)

merge_first(x, revx = FALSE)

merge_last(x, revx = FALSE)

merge_firstin(rx, y, revx = FALSE, revy = FALSE)

merge_lastin(rx, y, revx = FALSE, revy = FALSE)

merge_firstnotin(rx, y, revx = FALSE, revy = FALSE)

merge_lastnotin(rx, y, revx = FALSE, revy = FALSE)
}
\arguments{
\item{x}{a sorted set}

\item{y}{a sorted set}

\item{revx}{default \code{FALSE}, set to \code{TRUE} to reverse scan parameter 'x'}

\item{revy}{default \code{FALSE}, set to \code{TRUE} to reverse scan parameter 'y'}

\item{nomatch}{integer value returned for non-matched elements, see \code{\link[=match]{match()}}}

\item{method}{one of "unique", "exact" (or "all") which governs how to treat ties, see
the function descriptions}

\item{rx}{range of integers given as \code{\link[=ri]{ri()}} or as a two-element \code{\link[=integer]{integer()}}}
}
\value{
\code{merge_rev(x)} returns \code{\link[=rev]{-rev(x)}} for \code{\link[=integer]{integer()}} and \code{\link[=double]{double()}} and
\code{\link[=rev]{!rev(x)}} for \code{\link[=logical]{logical()}}
}
\description{
The \code{merge_} functions allow unary and binary operations on (ascending) sorted vectors
of \code{\link[=integer]{integer()}}.
\code{merge_rev(x)} will do in one scan what costs two scans in \code{\link[=rev]{-rev(x)}}, see also
\code{\link[=reverse_vector]{reverse_vector()}}.
Many of these \code{merge_} can optionally scan their input in reverse order (and switch the
sign), which again saves extra scans for calling \code{merge_rev(x)} first.
}
\details{
These are low-level functions and hence do not check whether the set is
actually sorted.
Note that the \verb{merge_*} and \verb{merge_range*} functions have no special treatment for
\code{NA}.
If vectors with \code{NA} are sorted ith \code{NA} in the first positions (\code{na.last=FALSE}) and
arguments \verb{revx=} or \verb{revy=} have not been used, then \code{NAs} are treated like ordinary
integers. \code{NA} sorted elsewhere or using \verb{revx=} or \verb{revy=} can cause unexpected
results (note for example that \verb{revx=} switches the sign on all integers but \code{NAs}).

The \emph{binary} \verb{merge_*} functions have a \code{method="exact"}
which in both sets treats consecutive occurrences of the same value as if they were
different values, more precisely they are handled as if the identity of ties were
tuples of \verb{ties, rank(ties)}. \code{method="exact"} delivers unique output if the input is
unique, and in this case works faster than \code{method="unique"}.
}
\section{Functions}{
\itemize{
\item \code{merge_match()}: returns integer positions of sorted set x in sorted set y, see
\code{\link[=match]{match(x, y, ...)}}

\item \code{merge_in()}: returns logical existence of sorted set x in sorted set y, see
\code{\link[=match]{x \%in\% y}}

\item \code{merge_notin()}: returns logical in-existence of sorted set x in sorted set y, see
\code{\link[=match]{!(x \%in\% y)}}

\item \code{merge_duplicated()}: returns the duplicated status of a sorted set x, see
\code{\link[=duplicated]{duplicated()}}

\item \code{merge_anyDuplicated()}: returns the anyDuplicated status of a sorted set x, see
\code{\link[=anyDuplicated]{anyDuplicated()}}

\item \code{merge_sumDuplicated()}: returns the sumDuplicated status of a sorted set x, see
\code{\link[=bit_sumDuplicated]{bit_sumDuplicated()}}

\item \code{merge_unique()}: returns unique elements of sorted set x, see \code{\link[=unique]{unique()}}

\item \code{merge_union()}: returns union of two sorted sets.
Default \code{method='unique'} returns a unique sorted set, see \code{\link[=union]{union()}};
\code{method='exact'} returns a sorted set with the maximum number of ties in either
input set; \code{method='all'} returns a sorted set with the sum of ties in both input
sets.

\item \code{merge_setdiff()}: returns sorted set x minus sorted set y
Default \code{method='unique'} returns a unique sorted set, see \code{\link[=setdiff]{setdiff()}};
\code{ethod='exact'} returns a sorted set with sum(x ties) minus sum(y ties);

\item \code{merge_symdiff()}: returns those elements that are in sorted set \code{y} \code{\link[=xor]{xor()}} in
sorted set \code{y}
Default \code{method='unique'} returns the sorted unique set complement, see \code{\link[=symdiff]{symdiff()}};
\code{method='exact'} returns a sorted set set complement with
\verb{abs(sum(x ties) - sum(y ties))}.

\item \code{merge_intersect()}: returns the intersection of two sorted sets x and y
Default \code{method='unique'} returns the sorted unique intersect, see \code{\link[=intersect]{intersect()}};
\code{method='exact'} returns the intersect with the minium number of ties in either set;

\item \code{merge_setequal()}: returns \code{TRUE} for equal sorted sets and \code{FALSE} otherwise
Default \code{method='unique'} compares the sets after removing ties, see \code{\link[=setequal]{setequal()}};
\code{method='exact'} compares the sets without removing ties;

\item \code{merge_rangein()}: returns logical existence of range rx in sorted set y, see
\code{\link[=merge_in]{merge_in()}}

\item \code{merge_rangenotin()}: returns logical in-existence of range rx in sorted set y, see
\code{\link[=merge_notin]{merge_notin()}}

\item \code{merge_rangesect()}: returns the intersection of range rx and sorted set y, see
\code{\link[=merge_intersect]{merge_intersect()}}

\item \code{merge_rangediff()}: returns range rx minus sorted set y, see \code{\link[=merge_setdiff]{merge_setdiff()}}

\item \code{merge_first()}: quickly returns the first element of a sorted set x (or \code{NA} if
x is empty), hence \code{x[1]} or \code{merge_rev(x)[1]}

\item \code{merge_last()}: quickly returns the last element of a sorted set x, (or \code{NA} if
x is empty), hence \code{x[n]} or \code{merge_rev(x)[n]}

\item \code{merge_firstin()}: quickly returns the first common element of a range rx and a
sorted set y, (or \code{NA} if the intersection is empty), hence
\code{merge_first(merge_rangesect(rx, y))}

\item \code{merge_lastin()}: quickly returns the last common element of a range rx and a
sorted set y, (or \code{NA} if the intersection is empty), hence
\code{merge_last(merge_rangesect(rx, y))}

\item \code{merge_firstnotin()}: quickly returns the first element of a range rx which is not in a
sorted set y (or \code{NA} if all rx are in y), hence \code{merge_first(merge_rangediff(rx, y))}

\item \code{merge_lastnotin()}: quickly returns the last element of a range rx which is not in a
sorted set y (or \code{NA} if all rx are in y), hence \code{merge_last(merge_rangediff(rx, y))}

}}
\note{
xx OPTIMIZATION OPPORTUNITY These are low-level functions could be optimized with
initial binary search (not findInterval, which coerces to double).
}
\examples{
merge_rev(1:9)

merge_match(1:7, 3:9)
#' merge_match(merge_rev(1:7), 3:9)
merge_match(merge_rev(1:7), 3:9, revx=TRUE)
merge_match(merge_rev(1:7), 3:9, revy=TRUE)
merge_match(merge_rev(1:7), merge_rev(3:9))

merge_in(1:7, 3:9)
merge_notin(1:7, 3:9)

merge_anyDuplicated(c(1L, 1L, 2L, 3L))
merge_duplicated(c(1L, 1L, 2L, 3L))
merge_unique(c(1L, 1L, 2L, 3L))

merge_union(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L))
merge_union(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L), method="exact")
merge_union(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L), method="all")

merge_setdiff(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L))
merge_setdiff(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L), method="exact")
merge_setdiff(c(1L, 2L, 2L), c(2L, 2L, 2L, 3L), method="exact")

merge_symdiff(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L))
merge_symdiff(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L), method="exact")
merge_symdiff(c(1L, 2L, 2L), c(2L, 2L, 2L, 3L), method="exact")

merge_intersect(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L))
merge_intersect(c(1L, 2L, 2L, 2L), c(2L, 2L, 3L), method="exact")

merge_setequal(c(1L, 2L, 2L), c(1L, 2L))
merge_setequal(c(1L, 2L, 2L), c(1L, 2L, 2L))
merge_setequal(c(1L, 2L, 2L), c(1L, 2L), method="exact")
merge_setequal(c(1L, 2L, 2L), c(1L, 2L, 2L), method="exact")

}