# using two sets of class \code{RootDepSet}
rds1<- RootDepSet()
rds1<- setRootDepSet(rds1, list(a=letters[1:3], b=letters[1:4]), root=c("a", "b"))
rds2<- RootDepSet()
rds2<- setRootDepSet(rds2, list(a=letters[1:7], c=letters[2:5]), root=c("a", "c"))
myset<- Set()
combine(myset, rds1, rds2)
# using lists with structure that imitates the one of class RootDepSet
list1<- list(value=list(a=letters[1:5], b=letters[1:4]), root=NULL)
list2<- list(value=list(a=letters[1:7], b=letters[2:5]), root=NULL)
myset<- Set()
combine(myset, list1, list2)
Run the code above in your browser using DataLab