cuthill_mckee: Cuthill McKee (CM) algorithm
In oslerinhealth/rewind: Reconstructing Etiology with Binary Decomposition

Description Usage Arguments Value Author(s) See Also Examples

Transform sparse matrix into a band matrix

1	cuthill_mckee(x)

`x`	Input matrix

Band matrix

Fabian Schmich

mblock

L0 <- 100   # dimension of measurements.
M0 <- 30    # true dimension of latent states.
frac <- 0.05
NITER <- 1
maxlen_simu <- rep(NA,NITER)
for (iter in 1:NITER){
  Q    <- simulate_Q(M0,L0,p = frac)
  simu <- list(Q=Q)
  block_ind_list <- mblock(simu$Q,PLOT = TRUE)
  maxlen_simu[iter] <- max(unlist(lapply(block_ind_list,length)))
}
#hist(maxlen_simu)
table(maxlen_simu)