try it
M <- matrix( c(0,2,1,1,2,0,1,0,1,1,0,1,1,0,1,0), 4, 4, dimnames=list(c("A","B","C","D"), c("A","B","C","D"))) eList <- NULL for ( i in 1:nrow(M) ){ for ( j in 1:ncol(M)) { eList <- c(eList, rep(paste(dimnames(M)[[1]][i], dimnames(M)[[2]][j] ), M[i,j])) } }
Exit
> eList [1] "AB" "AB" "AC" "AD" "BA" "BA" "BC" "CA" "CB" "CD" "DA" "DC"
bnjmn
source share