gRbase (version 1.8-5.1)

set_operations: Suite of set operations

Description

Set operations for gRbase and related packages.

Usage

maximal_sets(setlist, index = FALSE)
minimal_sets(setlist, index = FALSE)
remove_redundant(setlist, maximal = TRUE, index = FALSE)
is_inset(x, setlist, index = FALSE)
get_subset(set, setlist, all = FALSE)
get_superset(set, setlist, all = FALSE)
is_subsetof(set, set2)
is.subsetof(x, set)

Arguments

setlist

List of vectors (representing a set of subsets)

index

Logical; should indices (in setlist) be returned or a set of subsets.

maximal

Logical; see section 'Details' for a description.

x, set, set2

Vector representing a set.

all

Logical; see section 'Details' for a description.

Details

'setlist' is a list of vectors representing a set of subsets; i.e. V1,...VQ where Vk is a subset of some base set V.

'all' If true, get_superset will return index of all vectors containing the element; otherwise only the first index is returned.

is_inset: Checks if the set x is in one of the Vk's.

remove_redundant: Returns those Vk which are not contained in other subsets; i.e. gives the maximal sets. If maximal is FALSE then returns the minimal sets; i.e. Vk is returned if Vk is contained in one of the other sets Vl and there are no set Vn contained in Vk.

Notice that the comparisons are made by turning the elements into characters and then comparing these. Hence 1 is identical to "1".

Examples

# NOT RUN {
set <- list(c(1,2), c(1,2,3), c(2,3,6), c(2,4), c(5,6), 5)            
                                                            
el1 <- c(2,1)                                               
el2 <- c(2,3)                                               
el3 <- c(4,3)                                               
el4 <- c(2,1,3)                                             
                                                            
maximal_sets(set)                                           
minimal_sets(set)                                           
                                                            
remove_redundant(set)                                       
remove_redundant(set, maximal=FALSE)                        
                                                            
is_inset(el1, set)                                          
is_inset(el2, set)                                          
is_inset(el3, set)                                          
                                                            
get_subset(el1, set)
get_subset(el1, set)                                        
get_subset(el2, set)                                        
get_subset(el3, set)                                        

get_superset(el1, set)                                      
get_superset(el1, set, all=TRUE)                                      
get_superset(el2, set)                                      
get_superset(el3, set)                                      
                                                            
is_subsetof(el1, el1)                                       
is_subsetof(el1, el2)                                       
is_subsetof(el1, el4)                                       

# }