Sorry, I need to point out that this is incorrect and may be misleading. I gave the correct answer below:
a6 = n1234; a12 = n123[-which(n123 %in% a6)]; a11 = n124[-which(n124 %in% a6)]; a5 = n134[-which(n134 %in% a6)]; a7 = n234[-which(n234 %in% a6)]; a15 = n12[-which(n12 %in% c(a6,a11,a12))]; a4 = n13[-which(n13 %in% c(a6,a5,a12))]; a10 = n14[-which(n14 %in% c(a6,a5,a11))]; a13 = n23[-which(n23 %in% c(a6,a7,a12))]; a8 = n24[-which(n24 %in% c(a6,a7,a11))]; a2 = n34[-which(n34 %in% c(a6,a5,a7))]; a9 = A[-which(A %in% c(a4,a5,a6,a10,a11,a12,a15))]; a14 = B[-which(B %in% c(a6,a7,a8,a11,a12,a13,a15))]; a1 = C[-which(C %in% c(a2,a4,a5,a6,a7,a12,a13))]; a3 = D[-which(D %in% c(a2,a5,a6,a7,a8,a10,a11))];
source share