tests/testthat/helper_Data.R

some_Data <- list(
  single_AOI_col = 
    data.frame( fixationIndex = 1:30,
                AOI = c( "AOI1", "AOI1", "AOI2", "AOI2", "AOI3", "AOI4", "AOI7",
                         "AOI7", "AOI7", "AOI7", "AOI3", "AOI3", "AOI7", "AOI4",
                         "AOI4", "AOI4", "AOI5", "AOI2", "AOI2", "AOI4", "AOI2",
                         "AOI1", "AOI1", "AOI6", "AOI6", "AOI1", "AOI3", "AOI5",
                         "AOI6", "AOI1"),
                fixTime = c( 373, 113, 123, 150, 120, 563, 320, 270, 147, 207,
                             320, 630, 320, 183, 207, 230, 210, 247, 447, 157,
                             323, 247, 223, 327, 200, 10, 210, 163, 343, 123 ),
                passes = c( "FP_AOI1", "FP_AOI1", "FP_AOI2", "FP_AOI2",
                            "FP_AOI3", "FP_AOI4", "FP_AOI7", "FP_AOI7",
                            "FP_AOI7", "FP_AOI7", "FP_AOI3", "FP_AOI3",
                            "SP_AOI7", "FP_AOI4", "FP_AOI4", "FP_AOI4",
                            "FP_AOI5", "FP_AOI2", "FP_AOI2", "SP_AOI4",
                            "SP_AOI2", "FP_AOI1", "FP_AOI1", "FP_AOI6",
                            "FP_AOI6", "SP_AOI1", "SP_AOI3", "FP_AOI5",
                            "FP_AOI6", "SP_AOI1" ),
                stringsAsFactors = F
    ),
  single_AOI_zeros = 
    data.frame( fixationIndex = 1:30,
                AOI = c( "AOI1", "AOI1", "AOI2", "AOI2", 0, "AOI4", "AOI7",
                         "AOI7", "AOI7", "AOI7", 0, 0, "AOI7", "AOI4",
                         "AOI4", "AOI4", "AOI5", "AOI2", "AOI2", "AOI4", "AOI2",
                         "AOI1", "AOI1", "AOI6", "AOI6", "AOI1", 0, "AOI5",
                         "AOI6", "AOI1"),
                fixTime = c( 373, 113, 123, 150, 120, 563, 320, 270, 147, 207,
                             320, 630, 320, 183, 207, 230, 210, 247, 447, 157,
                             323, 247, 223, 327, 200, 10, 210, 163, 343, 123 ),
                passes = c( "FP_AOI1", "FP_AOI1", "FP_AOI2", "FP_AOI2",
                            "FP_AOI3", "FP_AOI4", "FP_AOI7", "FP_AOI7",
                            "FP_AOI7", "FP_AOI7", "FP_AOI3", "FP_AOI3",
                            "SP_AOI7", "FP_AOI4", "FP_AOI4", "FP_AOI4",
                            "FP_AOI5", "FP_AOI2", "FP_AOI2", "SP_AOI4",
                            "SP_AOI2", "FP_AOI1", "FP_AOI1", "FP_AOI6",
                            "FP_AOI6", "SP_AOI1", "SP_AOI3", "FP_AOI5",
                            "FP_AOI6", "SP_AOI1" ),
                stringsAsFactors = F
    ),
  multiple_AOI_col = 
    data.frame( fixationIndex = 1:30,
                AOI1 = c( 1, 1, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 1, 1, 0,
                          0, 1, 0, 0, 0, 1 ),
                AOI2 = c( 0, 0, 1, 1, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 1, 1, 0, 1, 0, 0, 0,
                          0, 0, 0, 0, 0, 0 ),
                AOI3 = c( 0, 0, 0, 0, 1, 0, 0, 0,
                          0, 0, 1, 1, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 1, 0, 0, 0 ),
                AOI4 = c( 0, 0, 0, 0, 0, 1, 0, 0,
                          0, 0, 0, 0, 0, 1, 1, 1,
                          0, 0, 0, 1, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0 ),
                AOI5 = c( 0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          1, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 1, 0, 0 ),
                AOI6 = c( 0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 1,
                          1, 0, 0,  0, 1, 0 ),
                AOI7 = c( 0, 0, 0, 0, 0, 0, 1, 1,
                          1, 1, 0, 0, 1, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0 )
    ),
  multiple_AOI_col_out = 
    data.frame( fixationIndex = 1:30,
                AOI1 = c( 1, 1, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 1, 1, 0,
                          0, 1, 0, 0, 0, 1 ),
                AOI2 = c( 0, 0, 1, 1, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 1, 1, 0, 1, 0, 0, 0,
                          0, 0, 0, 0, 0, 0 ),
                AOI3 = c( 0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 1, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 1, 0, 0, 0 ),
                AOI4 = c( 0, 0, 0, 0, 0, 1, 0, 0,
                          0, 0, 0, 0, 0, 1, 1, 1,
                          0, 0, 0, 1, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0 ),
                AOI5 = c( 0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          1, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 1, 0, 0 ),
                AOI6 = c( 0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 1,
                          1, 0, 0,  0, 1, 0 ),
                AOI7 = c( 0, 0, 0, 0, 0, 0, 1, 1,
                          1, 1, 0, 0, 1, 0, 0, 0,
                          0, 0, 0, 0, 0, 0, 0, 0,
                          0, 0, 0, 0, 0, 0 )
    ),
  rereading =
    list( topLeft = data.frame( fixationIndex = 1:37,
                                AOI = c( "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                         "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                         "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                         "AOI1", "AOI2", "AOI2", "AOI1", "AOI2",
                                         "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                         "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                         "AOI2", "AOI2", "AOI2", "AOI2", "AOI3",
                                         "AOI3", "AOI3" ),
                                xcoord = c( 331, 380, 461, 537, 405, 581, 658,
                                            347, 391, 482, 563, 640, 363, 417,
                                            509, 347, 585, 675, 351, 328, 399,
                                            513, 590, 668, 337, 465, 629, 407,
                                            684, 470, 378, 526, 549, 370, 390,
                                            511, 434 ),
                                ycoord = c( 65, 66, 67, 64, 68, 65, 67, 93, 97,
                                            102, 98, 101, 94, 97, 99, 132, 221,
                                            222, 65, 258, 253, 256, 257, 256,
                                            301, 294, 294, 326, 330, 259, 299,
                                            297, 331, 367, 431, 432, 430 ),
                                fixTime = c( 373, 113, 123, 150, 120, 563, 320,
                                             270, 147, 207, 320, 630, 320, 183,
                                             207, 230, 210, 247, 447, 157, 323,
                                             247, 223, 327, 200, 210, 163, 343,
                                             233, 180, 173, 423, 267, 280, 397,
                                             167, 217 ),
                                passes = c( "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                            "FPF_AOI1", "FPR_AOI1", "FPF_AOI1",
                                            "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                            "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                            "FPR_AOI1", "FPR_AOI1", "FPR_AOI1",
                                            "FPF_AOI1", "FPF_AOI2", "FPF_AOI2",
                                            "SP_AOI1", "FPF_AOI2", "FPF_AOI2",
                                            "FPF_AOI2", "FPF_AOI2", "FPF_AOI2",
                                            "FPF_AOI2", "FPF_AOI2", "FPF_AOI2",
                                            "FPF_AOI2", "FPF_AOI2", "FPR_AOI2",
                                            "FPR_AOI2", "FPR_AOI2", "FPR_AOI2",
                                            "FPF_AOI2", "FPF_AOI3", "FPF_AOI3",
                                            "FPR_AOI3" ),
                                stringsAsFactors = F ),
          zeros = data.frame( fixationIndex = 1:37,
                              AOI1 = c( 1, 1, 1, 1, 1,
                                        1, 1, 1, 1, 1,
                                        1, 1, 1, 1, 1,
                                        1, 0, 0, 1, 0,
                                        0, 0, 0, 0, 0,
                                        0, 0, 0, 0, 0,
                                        0, 0, 0, 0, 0,
                                        0, 0 ),
                              AOI3 = c( 0, 0, 0, 0, 0,
                                        0, 0, 0, 0, 0,
                                        0, 0, 0, 0, 0,
                                        0, 0, 0, 0, 0,
                                        0, 0, 0, 0, 0,
                                        0, 0, 0, 0, 0,
                                        0, 0, 0, 0, 1,
                                        1, 1 ),
                              xcoord = c( 331, 380, 461, 537, 405, 581, 658,
                                          347, 391, 482, 563, 640, 363, 417,
                                          509, 347, 585, 675, 351, 328, 399,
                                          513, 590, 668, 337, 465, 629, 407,
                                          684, 470, 378, 526, 549, 370, 390,
                                          511, 434 ),
                              ycoord = c( 65, 66, 67, 64, 68, 65, 67, 93, 97,
                                          102, 98, 101, 94, 97, 99, 132, 221,
                                          222, 65, 258, 253, 256, 257, 256,
                                          301, 294, 294, 326, 330, 259, 299,
                                          297, 331, 367, 431, 432, 430 ),
                              fixTime = c( 373, 113, 123, 150, 120, 563, 320,
                                           270, 147, 207, 320, 630, 320, 183,
                                           207, 230, 210, 247, 447, 157, 323,
                                           247, 223, 327, 200, 210, 163, 343,
                                           233, 180, 173, 423, 267, 280, 397,
                                           167, 217 ),
                              passes = c( "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                          "FPF_AOI1", "FPR_AOI1", "FPF_AOI1",
                                          "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                          "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                          "FPR_AOI1", "FPR_AOI1", "FPR_AOI1",
                                          "FPF_AOI1", "FPF_AOI2", "FPF_AOI2",
                                          "SP_AOI1", "FPF_AOI2", "FPF_AOI2",
                                          "FPF_AOI2", "FPF_AOI2", "FPF_AOI2",
                                          "FPF_AOI2", "FPF_AOI2", "FPF_AOI2",
                                          "FPF_AOI2", "FPF_AOI2", "FPR_AOI2",
                                          "FPR_AOI2", "FPR_AOI2", "FPR_AOI2",
                                          "FPF_AOI2", "FPF_AOI3", "FPF_AOI3",
                                          "FPR_AOI3" ),
                              stringsAsFactors = F ),
          bottomLeft = data.frame( fixationIndex = 1:37,
                                   AOI = c( "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                            "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                            "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                            "AOI1", "AOI2", "AOI2", "AOI1", "AOI2",
                                            "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                            "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                            "AOI2", "AOI2", "AOI2", "AOI2", "AOI3",
                                            "AOI3", "AOI3" ),
                                   xcoord = c( 331, 380, 461, 537, 405, 581, 658,
                                               347, 391, 482, 563, 640, 363, 417,
                                               509, 347, 585, 675, 351, 328, 399,
                                               513, 590, 668, 337, 465, 629, 407,
                                               684, 470, 378, 526, 549, 370, 390,
                                               511, 434 ),
                                   ycoord = c( 433, 431, 430, 432, 429, 429, 430,
                                               403, 400, 400, 397, 394, 402, 399,
                                               397, 366, 276, 275, 432, 240, 245,
                                               242, 240, 239, 197, 202, 203, 172,
                                               167, 239, 199, 200, 165, 130, 65,
                                               66, 67 ),
                                   stringsAsFactors = F ),
          topRight = data.frame( fixationIndex = 1:37,
                                 AOI = c( "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                          "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                          "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                          "AOI1", "AOI2", "AOI2", "AOI1", "AOI2",
                                          "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                          "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                          "AOI2", "AOI2", "AOI2", "AOI2", "AOI3",
                                          "AOI3", "AOI3" ),
                                 xcoord = c( 663, 613, 532, 457, 590, 411, 336,
                                             647, 601, 510, 429, 354, 633, 576,
                                             486, 644, 409, 319, 641, 665, 594,
                                             480, 405, 325, 658, 526, 364, 585,
                                             307, 527, 614, 467, 447, 627, 601,
                                             483, 551 ),
                                 ycoord = c( 65, 66, 67, 64, 68, 65, 67, 93, 97,
                                             102, 98, 101, 94, 97, 99, 132, 221,
                                             222, 65, 258, 253, 256, 257, 256,
                                             301, 294, 294, 326, 330, 259, 299,
                                             297, 331, 367, 431, 432, 430 ),
                                 stringsAsFactors = F ),
          bottomRight = data.frame( fixationIndex = 1:37,
                                    AOI = c( "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                             "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                             "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                             "AOI1", "AOI2", "AOI2", "AOI1", "AOI2",
                                             "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                             "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                             "AOI2", "AOI2", "AOI2", "AOI2", "AOI3",
                                             "AOI3", "AOI3" ),
                                    xcoord = c( 663, 614, 532, 456, 590, 413, 334,
                                                646, 601, 510, 430, 353, 633, 575,
                                                486, 644, 410, 319, 640, 666, 594,
                                                480, 404, 325, 657, 526, 366, 586,
                                                309, 526, 614, 468, 445, 623, 602,
                                                482, 550 ),
                                    ycoord = c( 433, 431, 430, 432, 429, 429, 430,
                                                403, 400, 400, 397, 394, 402, 399,
                                                397, 366, 276, 275, 432, 240, 245,
                                                242, 240, 239, 197, 202, 203, 172,
                                                167, 239, 199, 200, 165, 130, 65,
                                                66, 67 ),
                                    stringsAsFactors = F ),
          center = data.frame( fixationIndex = 1:37,
                               AOI = c( "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                        "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                        "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                        "AOI1", "AOI2", "AOI2", "AOI1", "AOI2",
                                        "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                        "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                        "AOI2", "AOI2", "AOI2", "AOI2", "AOI3",
                                        "AOI3", "AOI3" ),
                               xcoord = c( -75, -53, -21, 12, -42, 31, 59,
                                           -67, -46, -10, 21, 51, -59, -35,
                                           2, -62, 31, 65, -62, -73, -40,
                                           3, 32, 66, -72, -25, 49, -42, 67,
                                           -22, -55, 4, 13, -56, -52, 2, -32 ),
                               ycoord = c( 75, 76, 74, 75, 74, 73, 73, 62, 60,
                                           58, 59, 57, 61, 60, 59, 47, 11, 10,
                                           74, -5, -3, -4,-5, -4, -22, -20, -19,
                                           -33, -34, -5, -21, -21, -34, -49,
                                           -67, -68, -66 ),
                               stringsAsFactors = F ),
          unFixed = data.frame( fixationIndex = 1:37,
                                AOI = c( "AOI1", "AOI1", "AOI1", "AOI1",
                                                 "AOI1", "AOI1", "AOI1", "AOI1",
                                                 "AOI1", "AOI1", "AOI1", "AOI1",
                                                 "AOI1", "AOI1", "AOI1", "AOI1",
                                                 "AOI2", "AOI2", "AOI1", "AOI2",
                                                 "AOI2", "AOI2", "AOI2", "AOI2",
                                                 "AOI2", "AOI2", "AOI2", "AOI2",
                                                 "AOI2", "AOI2", "AOI2", "AOI2",
                                                 "AOI2", "AOI2", "AOI3", "AOI3",
                                                 "AOI3" ),
                                xcoord = c( 331, 380, 461, 537, 405, 581, 658,
                                            347, 391, 482, 563, 640, 363, 417,
                                            509, 347, 585, 675, 351, 328, 399,
                                            513, 590, 668, 337, 465, 629, 407,
                                            684, 470, 378, 526, 549, 370, 390,
                                            511, 434 ),
                                ycoord = c( 65, 66, 67, 64, 68, 65, 67, 93, 97,
                                            102, 98, 101, 94, 97, 99, 132, 221,
                                            222, 65, 258, 253, 256, 257, 256,
                                            301, 294, 294, 326, 330, 259, 299,
                                            297, 331, 367, 431, 432, 430 ),
                                fixTime = c( 373, 113, 123, 150, 120, 563, 320,
                                             270, 147, 207, 320, 630, 320, 183,
                                             207, 230, 210, 247, 447, 157, 323,
                                             247, 223, 327, 200, 210, 163, 343,
                                             233, 180, 173, 423, 267, 280, 397,
                                             167, 217 ),
                                passes = c( "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                            "FPF_AOI1", "FPR_AOI1", "FPF_AOI1",
                                            "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                            "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                            "FPR_AOI1", "FPR_AOI1", "FPR_AOI1",
                                            "FPF_AOI1", "FPF_AOI2", "FPF_AOI2",
                                            "SP_AOI1", "FPF_AOI2", "FPF_AOI2",
                                            "FPF_AOI2", "FPF_AOI2", "FPF_AOI2",
                                            "FPF_AOI2", "FPF_AOI2", "FPF_AOI2",
                                            "FPF_AOI2", "FPF_AOI2", "FPR_AOI2",
                                            "FPR_AOI2", "FPR_AOI2", "FPR_AOI2",
                                            "FPF_AOI2", "FPF_AOI3", "FPF_AOI3",
                                            "FPR_AOI3" ),
                                stringsAsFactors = F ),
          outFix = data.frame( fixationIndex = 1:40,
                                 AOI = c( "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                          "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                          "AOI1", "AOI1", "AOI1", "AOI1", "AOI1",
                                          "AOI1", "0", "0", "AOI2", "AOI2", "AOI1", "AOI2",
                                          "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                          "AOI2", "AOI2", "AOI2", "AOI2", "AOI2",
                                          "AOI2", "AOI2", "AOI2", "AOI2", "0", "AOI3",
                                          "AOI3", "AOI3" ),
                                 xcoord = c( 331, 380, 461, 537, 405, 581, 658,
                                             347, 391, 482, 563, 640, 363, 417,
                                             509, 347, 371, 519, 585, 675, 351, 328, 399,
                                             513, 590, 668, 337, 465, 629, 407,
                                             684, 470, 378, 526, 549, 370, 367, 390,
                                             511, 434 ),
                                 ycoord = c( 65, 66, 67, 64, 68, 65, 67, 93, 97,
                                             102, 98, 101, 94, 97, 99, 132, 183, 194, 221,
                                             222, 65, 258, 253, 256, 257, 256,
                                             301, 294, 294, 326, 330, 259, 299,
                                             297, 331, 367, 395, 431, 432, 430 ),
                                 fixTime = c( 373, 113, 123, 150, 120, 563, 320,
                                              270, 147, 207, 320, 630, 320, 183,
                                              207, 230, 125, 356, 210, 247, 447, 157, 323,
                                              247, 223, 327, 200, 210, 163, 343,
                                              233, 180, 173, 423, 267, 280, 507, 397,
                                              167, 217 ),
                                 passes = c( "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                             "FPF_AOI1", "FPR_AOI1", "FPF_AOI1",
                                             "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                             "FPF_AOI1", "FPF_AOI1", "FPF_AOI1",
                                             "FPR_AOI1", "FPR_AOI1", "FPR_AOI1",
                                             "FPF_AOI1", "0", "0", "FPF_AOI2", "FPF_AOI2",
                                             "SP_AOI1", "FPF_AOI2", "FPF_AOI2",
                                             "FPF_AOI2", "FPF_AOI2", "FPF_AOI2",
                                             "FPF_AOI2", "FPF_AOI2", "FPF_AOI2",
                                             "FPF_AOI2", "FPF_AOI2", "FPR_AOI2",
                                             "FPR_AOI2", "FPR_AOI2", "FPR_AOI2",
                                             "FPF_AOI2", "0", "FPF_AOI3", "FPF_AOI3",
                                             "FPR_AOI3" ),
                                 stringsAsFactors = F )
    ),
  two_AOI_Fix = data.frame( fixationIndex = 1:30,
                            AOI1 = c( 1, 1, 0, 0, 0, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0, 0, 0,
                                      0, 0, 0, 0, 0, 1, 1, 0,
                                      0, 1, 0, 0, 0, 1 ),
                            AOI2 = c( 0, 0, 1, 1, 0, 0, 0, 0,
                                      1, 0, 0, 0, 0, 0, 0, 0,
                                      0, 1, 1, 0, 1, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0 ),
                            AOI3 = c( 0, 0, 0, 0, 1, 0, 0, 0,
                                      0, 0, 1, 1, 0, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0, 0, 0,
                                      0, 0, 1, 0, 0, 0 ),
                            AOI4 = c( 0, 0, 0, 0, 0, 1, 0, 0,
                                      0, 0, 0, 0, 0, 1, 1, 1,
                                      0, 0, 0, 1, 0, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0 ),
                            AOI5 = c( 0, 0, 0, 0, 0, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0, 0, 0,
                                      1, 0, 0, 0, 0, 0, 0, 0,
                                      0, 0, 0, 1, 0, 0 ),
                            AOI6 = c( 0, 0, 0, 0, 0, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0, 0, 1,
                                      1, 0, 0,  0, 1, 0 ),
                            AOI7 = c( 0, 0, 0, 0, 0, 0, 1, 1,
                                      1, 1, 0, 0, 1, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0, 0, 0,
                                      0, 0, 0, 0, 0, 0 )
  )
)

Try the eyeRead package in your browser

Any scripts or data that you put into this service are public.

eyeRead documentation built on Aug. 7, 2020, 5:07 p.m.