tests/testthat/helper_neighborful_algorithm.R

In sathishsrinivasank/pinerrordetector: Detection of Pinning Errors of Robotic Machines used in SGA Yeast Screen

# neighborful algorithm
q11 <- structure(list(excluded_colonies_A = list(c(499L, 500L, 531L, 532L, 721L, 770L, 813L, 814L, 817L, 818L,
                                                   821L, 862L, 913L, 1264L, 1265L, 1266L, 1267L, 1268L, 1269L,
                                                   1270L, 1271L, 1272L, 1273L, 1274L, 1275L, 1276L, 1277L,
                                                   1278L, 1297L, 1298L, 1299L, 1300L, 1301L, 1302L, 1303L,
                                                   1304L, 1305L, 1306L, 1307L, 1308L, 1309L, 1310L, 1311L)),
                      excluded_colonies_B = list(c(491, 492, 499, 500, 507, 508, 523, 524, 531, 532, 539, 540,
                                                   555, 556, 571, 572, 688, 689, 690, 721, 722, 723, 738, 770,
                                                   771, 781, 782, 783, 784, 785, 786, 789, 790, 813, 814, 817,
                                                   818, 819, 820, 821, 822, 829, 830, 831, 834, 837, 838, 844,
                                                   861, 862, 866, 867, 868, 869, 870, 880, 881, 882, 913, 914,
                                                   915, 1264, 1265, 1266, 1267, 1268, 1269, 1270, 1271, 1272,
                                                   1273, 1274, 1275, 1276, 1277, 1278, 1297, 1298, 1299, 1300,
                                                   1301, 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310,
                                                   1311, 737, 769, 833, 865)),
                      excluded_colonies_C = list(c(499L, 500L, 531L, 532L, 721L, 770L, 813L, 814L, 817L, 818L,
                                                   821L, 862L, 913L, 1264L, 1265L, 1266L, 1267L, 1268L, 1269L,
                                                   1270L, 1271L, 1272L, 1273L, 1274L, 1275L, 1276L, 1277L, 1278L,
                                                   1297L, 1298L, 1299L, 1300L, 1301L, 1302L, 1303L, 1304L, 1305L,
                                                   1306L, 1307L, 1308L, 1309L, 1310L, 1311L)),
                      excluded_colonies_D = list(c(491, 492, 499, 500, 507, 508, 523, 524, 531, 532, 539,
                                                   540, 555, 556, 571, 572, 688, 689, 690, 721, 722, 723, 738,
                                                   770, 771, 781, 782, 783, 784, 785, 786, 789, 790, 813, 814,
                                                   817, 818, 819, 820, 821, 822, 829, 830, 831, 834, 837, 838,
                                                   844, 861, 862, 866, 867, 868, 869, 870, 880, 881, 882, 913,
                                                   914, 915, 1264, 1265, 1266, 1267, 1268, 1269, 1270, 1271,
                                                   1272, 1273, 1274, 1275, 1276, 1277, 1278, 1297, 1298, 1299,
                                                   1300, 1301, 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309,
                                                   1310, 1311, 737, 769, 833, 865)),
                      excluded_colonies_E = list(c(499L, 500L, 531L, 532L, 1264L, 1265L, 1266L, 1267L, 1268L,
                                                   1269L, 1270L, 1271L, 1272L, 1273L, 1274L, 1275L, 1276L, 1277L,
                                                   1278L, 1297L, 1298L, 1299L, 1300L, 1301L, 1302L, 1303L, 1304L,
                                                   1305L, 1306L, 1307L, 1308L, 1309L, 1310L, 1311L)),
                      excluded_colonies_F = list(c(499, 500, 523, 524, 531, 532, 571, 572, 688, 689, 690,
                                                   738, 771, 781, 782, 783, 784, 785, 786, 789, 790, 819, 820,
                                                   829, 830, 831, 834, 837, 838, 844, 880, 881, 882, 1264, 1265,
                                                   1266, 1267, 1268, 1269, 1270, 1271, 1272, 1273, 1274, 1275,
                                                   1276, 1277, 1278, 1297, 1298, 1299, 1300, 1301, 1302, 1303,
                                                   1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 737, 833)),
                      excluded_colonies_G = list(c(499L, 500L, 531L, 532L, 1264L, 1265L, 1266L, 1267L, 1268L,
                                                   1269L, 1270L, 1271L, 1272L, 1273L, 1274L, 1275L, 1276L,
                                                   1277L, 1278L, 1297L, 1298L, 1299L, 1300L, 1301L, 1302L,
                                                   1303L, 1304L, 1305L, 1306L, 1307L, 1308L, 1309L, 1310L,
                                                   1311L)),
                      excluded_colonies_H = list(c(499, 500, 523, 524, 531, 532, 571, 572, 688, 689, 690, 738,
                                                   771, 781, 782, 783, 784, 785, 786, 789, 790, 819, 820, 829,
                                                   830, 831, 834, 837, 838, 844, 880, 881, 882, 1264, 1265,
                                                   1266, 1267, 1268, 1269, 1270, 1271, 1272, 1273, 1274, 1275,
                                                   1276, 1277, 1278, 1297, 1298, 1299, 1300, 1301, 1302, 1303,
                                                   1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 737, 833))),
                 .Names = c("excluded_colonies_A", "excluded_colonies_B", "excluded_colonies_C",
                            "excluded_colonies_D", "excluded_colonies_E", "excluded_colonies_F",
                            "excluded_colonies_G", "excluded_colonies_H"))