search for: cl_join

...delta , n , replace = TRUE, prob = NULL))) # A matrice which shows each object belongs to which class/partition. This is a Hard partition; membership id shown by {0,1} A <- as.cl_partition(x) B <- as.cl_partition(y) #join of them: The out put is a vector of the class ids m <- cl_join(A,B) # check if the join of two partition is the trivial partition if(m==t){counter<-counter+1} } probability <- counter/rounds return(probability)} [[alternative HTML version deleted]]