Combine categorical variables from cfluctile and cflcl

Combines variables obtained via cfcl and cfluctile to a single factor variable with one level per block-cluster and one level for the rest.

combcl(x)

Arguments

x

A matrix, table or data.frame. All variables should have the same number of categories.

Value

A factor variable with 1 level per diagonal element and 1 level for the rest.

Examples


a <- arsim(2000, c(12,17),5, noise=0.2,shuffle = FALSE)
cfa <- cfluctile(a)

da <- as.data.frame(a)
clusters <- cfcl( da, ll = cfa)

dev.new()
#> dev.new(): using pdf(file="Rplots71.pdf")
fluctile(xtabs(da$Freq~clusters[,1] + clusters[,2]))
#> viewport[base] 

table(combcl(clusters))
#> 
#>   1   2   3   4   5   0 
#>  10   9   4   4   8 169