Displaying 1 result from an estimated 1 matches for "redundantcluster".
2005 Apr 05
4
lists: removing elements, iterating over elements,
...7 8 9 10
[[9]]
[1] 1 5 6 7 8 9 10
[[10]]
[1] 1 2 3 4 5 6 7 8 9 10
The next task is to eliminate the redundant elements. unique() does not
apply to lists, so I have to scan one by one.
cluslist <- getUDClusters(distmat,radius)
##find redundant (same) clusters
redundantCluster <- c()
for (m in 1:(length(cluslist)-1)) {
for ( n in (m+1): length(cluslist) ){
if ( m != n & length(cluslist[[m]]) == length(cluslist[[n]]) ){
if ( sum(cluslist[[m]] == cluslist[[n]]){
redundantCluster <- c( redundantCluster,n)
}
}...