"gel" <-
structure(list(x = structure(c(195, 367, 138, 367, 107, 311, 
69, 208, 279, 104, 271, 327, 324, 320, 97, 145, 156, 259, 129, 
435, 76, 274, 118, 321, 168, 357, 231, 229, 271, 184, 279, 224, 
47, 150, 70, 75, 104, 82, 188, 183, 181, 82, 201, 126, 217, 88, 
307, 198, 268, 152, 114, 250, 136, 249, 244, 318, 170, 221, 102, 
175, 101, 109, 114, 124, 191, 33, 245, 75, 281, 88), .Dim = as.integer(c(2, 
35))), y = structure(c(227, 338, 166, 336, 135, 273, 104, 159, 
320, 50, 301, 295, 360, 289, 131, 89, 192, 220, 149, 412, 67, 
284, 103, 259, 141, 291, 169, 268, 254, 329, 302, 155, 154, 174, 
222, 171, 143, 18, 205, 20, 308, 136, 300, 31, 346, 151, 430, 
52, 459, 105, 142, 386, 144, 214, 150, 154, 145, 142, 136, 49, 
155, 67, 150, 204, 228, 31, 198, 208, 343, 40), .Dim = as.integer(c(2, 
35)))), .Names = c("x", "y"))