R/cl.size.R

In fclust: Fuzzy Clustering

cl.size <- function(U)
{
if (missing(U))
stop("The membership degree matrix U must be given")
if (is.null(U))
stop("The membership degree matrix U is empty")
U=as.matrix(U)
if (any(is.na(U)))
stop("The membership degree matrix U must not contain NA values")
if (!is.numeric(U))
stop("The membership degree matrix U must be numeric")
info.U=cl.memb(U)
k=ncol(U)
clus.size=vector(length(k),mode="numeric")
for (c in 1:k)
clus.size[c] = length(which(info.U[,1]==c))
names(clus.size)=paste("Clus",1:k,sep=" ")
return(clus.size)
}