Displaying 1 result from an estimated 1 matches for "getudclust".
Did you mean:
getdclist
2005 Apr 05
4
lists: removing elements, iterating over elements,
...ence/advice is.
I need to calculate overlapping U-diametric clusters of a given radius.
(Again, I apologize this looks so much like C.)
## Returns a list of all U-diametric clusters of a given radius
## Give an R distance matrix
## Clusters may overlap. Clusters may be identical (redundant)
getUDClusters <-function(distmat,radius){
mem <- list()
nItems <- dim(distmat)[1]
for ( i in 1:nItems ){
mem[[i]] <- c(i)
}
for ( m in 1:nItems ){
for ( n in 1:nItems ){
if (m != n & (distmat[m,n] <= radius)){
##item is within radius, so add to collection...