I'm not aware of any packages, but this implements your own metric (from your comment):
siml <- function(x,y) {
length(intersect(lst[[x]],lst[[y]]))/length(union(lst[[x]],lst[[y]]))
}
z <- expand.grid(x=1:length(lst),y=1:length(lst))
result <- mapply(siml,z$x,z$y)
dim(result) <- c(length(lst),length(lst))
result
# [,1] [,2] [,3] [,4] [,5] [,6]
# [1,] 1.000 0.8 0.667 0.667 0.8 0.667
# [2,] 0.800 1.0 0.800 0.800 1.0 0.800
# [3,] 0.667 0.8 1.000 0.667 0.8 0.667
# [4,] 0.667 0.8 0.667 1.000 0.8 0.667
# [5,] 0.800 1.0 0.800 0.800 1.0 0.800
# [6,] 0.667 0.8 0.667 0.667 0.8 1.000
This is a (slightly) more efficient way to do the same thing:
result <- sapply(lst,function(x)
sapply(lst,function(y,x)length(intersect(x,y))/length(union(x,y)),x))