[R] Remove similar rows from matrix

[Tonja Krueger]

   Hi everybody,

   I have a matrix (mat) from which I want to remove all rows that differ from
   other rows in that matrix only by having one ore two NA’s instead of a
   numbers.

   I would like to remove rows with more NA’s preferably, so in the end the
   matrix would look like mat2.

   Has someone done something similar before? Thanks for helping, Tonja


   Here my example:

   ex <- c(14, 56, 114, 132, 187, 279, 324, 328, 328, 338, 338, 338, 346, 346,
   395, 398, 428, 428, 428, 452, 452, 452, NA, 466, 467, 525, 894, 923, 968,
   980, 1030, 1117, 1156, NA, 1159, 1166, 1166, 1166, 1171, 1171, 1209, 1211,
   1235, 1235, 1235, 1275, 1275, 1275, NA, 1291, 1292, 1378, 829, 851, 880,
   893, 929, 1003, 1042, 1045, 1045, 1051, 1051, 1051, 1057, 1057, 1097, 1099,
   1119, 1119, 1119, 1147, 1147, 1147, 1147, 1167, 1168, 1235, 494, 510, 533,
   538, 567, 623, 657, 660, 660, 666, 666, 666, 671, 671, 699, 702, NA, 722,
   722, NA, NA, 744, 744, 759, 760, 816, 276, 293, 312, 318, 338, NA, NA, 418,
   418, 424, 424, NA, 429, 429, NA, NA, 468, 468, 468, 490, 490, 490, 490, 508,
   509, 568, 674, 696, 726, 734, 774, 851, 893, 896, 896, 903, 903, 903, 908,
   908, 944, 947, 966, 966, 966, NA, 998, 998, 998, 1014, 1015, 1091, 421, 446,
   472, 490, 510, 582, 624, 627, 627, 633, 633, NA, 640, 640, 669, 671, 685,
   685, 685, 716, 716, 716, 716, 736, 737, 798, NA, NA, NA, NA, NA, NA, 74, NA,
   NA, 82, NA, 82, 86, NA, 104, NA, 114, NA, 114, 119, 119, 119, 119, NA, NA,
   NA)

   mat <- matrix(example, ncol=8)


   ex2 <- c(14, 56, 114, 132, 187, 279, 324, 328, 338, 346, 395, 398, 428, 452,
   466, 467, 525, 894, 923, 968, 980, 1030, 1117, 156, 1159, 1166, 1171, 1209,
   1211, 1235, 1275, 1291, 1292, 1378, 829, 851, 880, 893, 929, 1003, 1042,
   1045, 1051, 1057, 1097, 1099, 1119, 1147, 1167, 1168, 1235, 494, 510, 533,
   538, 567, 623, 657, 660, 666, 671, 699, 702, 722, 744, 759, 760, 816, 276,
   293, 312, 318, 338, NA, NA, 418, 424, 429, NA, NA, 468, 490, 508, 509, 568,
   674, 696, 726, 734, 774, 851, 893, 896, 903, 908, 944, 947, 966, 998, 1014,
   1015, 1091, 421, 446, 472, 490, 510, 582, 624, 627, 633, 640, 669, 671, 685,
   716, 736, 737, 798, NA, NA, NA, NA, NA, NA, 74, NA, 82, 86, 104, NA, 114,
   119, NA, NA, NA)

   mat2 <- matrix(example2, ncol=8)