tests/testthat/helper_top_line_indices.R

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

m11 <- as.numeric(c(9,17,25,33,41,49,57,65,73,81,89))

m12 <- as.numeric(c(17,33,49,65,81,97,113,129,145,
                    161,177,193,209,225,241,257,273,
                    289,305,321,337,353,369))

m13 <- as.numeric(c(33,65,97,129,161,193,225,257,289,
                    321,353,385,417,449,481,513,545,577,
                    609,641,673,705,737,769,801,833,865,
                    897,929,961,993,1025,1057,1089,1121,
                    1153,1185,1217,1249,1281,1313,1345,
                    1377,1409,1441,1473,1505))

m14 <- as.numeric(c(65,129,193,257,321,385,449,513,577,
                    641,705,769,833,897,961,1025,1089,
                    1153,1217,1281,1345,1409,1473,1537,
                    1601,1665,1729,1793,1857,1921,1985,
                    2049,2113,2177,2241,2305,2369,2433
                    ,2497,2561,2625,2689,2753,2817,2881,
                    2945,3009,3073,3137,3201,3265,3329,
                    3393,3457,3521,3585,3649,3713,3777,
                    3841,3905,3969,4033,4097,4161,4225,
                    4289,4353,4417,4481,4545,4609,4673,
                    4737,4801,4865,4929,4993,5057,5121,
                    5185,5249,5313,5377,5441,5505,5569,
                    5633,5697,5761,5825,5889,5953,6017,
                    6081))