l1 [i]中的错误：“S4”类型的对象不是子集

Question

我正在尝试在两个群集之间找到重叠矩阵。 我设置了一个s4类，它有一个插槽（列表包含所有集群）。

 setClass("A", representation(a="list"))

 setMethod("initialize","A",
      function(.Object,data,k){
          fit<-kmeans(data,k)
          c<-list()
          for(i in 1:k)
              c[[i]]<-data[fit$cluster==i,]
          .Object@a<-c
          return(.Object)
      })

 l1<-new("A", da1, 4)
 l2<-new("A", da1, 4)

我试图使用代码

在类“A”的两个对象中找到共同元素

for(i in 1:4)
{
    for(j in 1:4)
    {
        lap[i,j]<-length(merge(l1[[i]],l2[[j]], all.x = FALSE, all.y = FALSE))
}

}

它给了我错误信息

 Error in l1[[i]] : this S4 class is not subsettable

我的问题是如何编写计算此重叠的方法。