powered by
lower.tri.vector(x, cluster = rep(1, nrow(x)), diag = FALSE)
x
lower.tri
m <- matrix(1:64, ncol=8) cluster <- c(1, 1, 1, 1, 2, 2, 3, 3) lower.tri.vector(m, cluster)
Run the code above in your browser using DataLab