Added %oin%.

mhahsler · Aug 5, 2017 · 9bb4b95 · 9bb4b95
1 parent f528a8e
commit 9bb4b95
Show file tree

Hide file tree

Showing 5 changed files with 22 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -63,6 +63,7 @@ exportClasses(
 exportMethods(
   "%in%",
   "%ain%",
+  "%oin%",
   "%pin%",
   "LIST",
   "DATAFRAME",

diff --git a/NEWS.md b/NEWS.md
@@ -3,6 +3,7 @@
 ## New Features
 * apriori and eclat return now count (absolute support count) in the 
   quality data.frame.
+* Added %oin% to find transactions/itemsets that ONLY contain certain items.
 
 ## Bug Fixes
 * Improved PROTECT placement in C source code.

diff --git a/R/AllGenerics.R b/R/AllGenerics.R
@@ -33,6 +33,9 @@ setGeneric("%pin%",
 setGeneric("%ain%",
     function(x, table) standardGeneric("%ain%"))
 
+setGeneric("%oin%",
+    function(x, table) standardGeneric("%oin%"))
+
 setGeneric("LIST",
     function(from, ...) standardGeneric("LIST"))
 

diff --git a/R/itemMatrix.R b/R/itemMatrix.R
@@ -230,6 +230,16 @@ setMethod("%ain%", signature(x = "itemMatrix", table = "character"),
   }
 )
 
+## all items have to be in
+setMethod("%oin%", signature(x = "itemMatrix", table = "character"),
+  function(x, table) {
+    pos <- match(table, itemLabels(x))
+    if (any(is.na(pos))) 
+      stop("table contains an unknown item label" )
+    size(x[, -pos]) == 0
+  }
+)
+
 ## partial in  
 setMethod("%pin%", signature(x = "itemMatrix", table = "character"),
   function(x, table) {

diff --git a/man/itemMatrix-class.Rd b/man/itemMatrix-class.Rd
@@ -22,6 +22,8 @@
 \alias{\%pin\%,itemMatrix,character-method}
 \alias{\%ain\%}
 \alias{\%ain\%,itemMatrix,character-method}
+\alias{\%oin\%}
+\alias{\%oin\%,itemMatrix,character-method}
 \alias{itemLabels<-,itemMatrix-method}
 \alias{itemLabels,itemMatrix-method}
 \alias{itemLabels<-}
@@ -143,6 +145,11 @@ See \code{\link{itemCoding}} to learn how to encode and recode itemMatrix object
         in \code{x} and returns a logical vector indicating if
         a row (itemset) in \code{x} contains \emph{all} of the
         items specified in \code{table}.}
+    \item{\%oin\%}{\code{signature(x = "itemMatrix", table = "character")}; 
+        matches the strings in \code{table} against the item labels 
+        in \code{x} and returns a logical vector indicating if
+        a row (itemset) in \code{x} contains \emph{only}
+        items specified in \code{table}.}
     \item{\%pin\%}{\code{signature(x = "itemMatrix", table = "character")}; 
         matches the strings in \code{table} against the item labels 
         in \code{x} (using \emph{partial} matching) and returns a