Displaying 1 result from an estimated 1 matches for "cl_partit".
Did you mean:
cl_parent
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 vers...