"dottodot" <-
structure(list(x = c(1.5, 3, 5, 5, 4, 3.75, 4, 5, 5.25, 5.5, 
6.25, 6, 7, 9, 11, 12.5, 14, 15.5, 17, 18, 18, 17, 16, 14.75, 
14.5, 14, 13.5, 13, 13.25, 13.25, 13, 12.5, 12, 10.5, 10.5, 11.5, 
12, 10.5, 9, 7, 6.5, 6, 5, 5.5, 6, 5.5, 4.5, 3, 1.5), y = c(3, 
4, 6, 7, 7.75, 8.5, 9, 9.5, 11, 9.5, 10.5, 9, 8, 8, 8, 7.75, 
6.75, 6, 5, 4.5, 4, 4.5, 5, 5, 4.25, 2, 0.5, 1, 2, 3.5, 4, 3, 
2, 1, 2, 3.5, 5, 4.5, 4.5, 4.75, 3.5, 2.5, 2, 3, 4, 5, 4, 3, 
3), pos = c(2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3, 4, 3, 3, 3, 3, 3, 
3, 3, 3, 1, 1, 1, 3, 4, 4, 1, 1, 2, 4, 3, 2, 2, 1, 2, 2, 3, 1, 
1, 2, 4, 4, 1, 2, 2, 3, 1, 1, 1), ind = c(1, 2, 3, 4, 5, 6, 7, 
8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 
24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 
40, 41, 42, 43, 44, 45, 46, 47, 48, 49)), .Names = c("x", "y", 
"pos", "ind"), class = "data.frame", row.names = c("1", "2", 
"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", 
"15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", 
"26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", 
"37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", 
"48", "49"))