Nothing
# 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)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.