计算R中的功率集

我必须设置

A={1,2,3}

和

B={A，B，c，d，e}

。我希望

A

和

B

中的元素子集至少包含A的一个元素和B的一个元素。如此处所述：，我需要使用以下公式：

P(A ∪ B)∖(P(A) ∪ P(B))

在

R

中，我尝试了以下查询：

require(HapEstXXR)

A <- c(1,2,3)
B <- c("A", "B", "C", "D", "E")

setdiff(powerset(union(A,B)), union(powerset(A),powerset(B)))

require（HapEstXXR）
A.
这4个要素解释了221和217之间的差异。不要混用类别：

length( z <- setdiff(powerset(union(A,B)), union(powerset(as.character(A)),powerset(B))) ) 
# 217

length（z）强制行为非常有趣，它对长度为1的数值向量的影响似乎与长度为2的数值向量的影响不同？？我认为由
setdiff
执行的比较必须进行一些强制。嗯，实际上我真的不知道为什么单例会通过。我知道
1==“1”
是正确的，但无法解决整个难题。
setdiff(s2, s1)
# 8 sets to create.
# 32 sets to create.
# 256 sets to create.
# [[1]]
# [1] 1 2
# 
# [[2]]
# [1] 1 3
# 
# [[3]]
# [1] 2 3
# 
# [[4]]
# [1] 1 2 3

length( z <- setdiff(powerset(union(A,B)), union(powerset(as.character(A)),powerset(B))) ) 
# 217