search for: cl_partition

Displaying 1 result from an estimated 1 matches for "cl_partition".

Did you mean: _partition
2011 May 10
0
Join and Meet on Lattice
...<- as.numeric(cbind(sample.int( k , n , replace = TRUE, prob = NULL))) y<- as.numeric(cbind(sample.int( k + 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...