R/gr_intersect.R

In gremes: Estimation of Tail Dependence in Graphical Models

# It finds the intersection of all objects in a list.
# x a list
intersect<- function(x)
{
  UseMethod("intersect", x)
}

#' @export
intersect.default<- function(x)
{
  return(base::intersect(x))
}




#' @export
intersect.list<- function(x)
{  if (length(x)==1)
   {
     x<- unlist(x)
     names(x)<- c()
     return(x)
   } else {
            g<- x[[1]]
            for (i in 2:length(x))
            {
               g<- base::intersect(g, x[[i]])
            }
            return(g)
          }
}