knotR: Knot Diagrams using Bezier Curves

`k11n157` <-
structure(list(minsymvec = structure(c(-15.4712693494739, -265.510018254583, 
-197.402032039092, -53.7628624183369, 1.06915240212197, -120.847235668615, 
-338.972238167945, -9.44406539788601, -125.398636833345, -178.356725213389, 
-18.2640217733266, -74.9985400967948, -319.171712728339, -410.017739243021, 
-16.1349565433134, -296.084268999323, -188.439778613801, 70.1376071532269, 
-109.134037380887, -222.283513860196, -88.9734953932775, 52.4047494918908, 
-64.2176804721593, -316.79355211885, -148.518983382315, -49.3773395320425, 
-168.387180239717, -200.63592540946, -53.0035491244437, -142.829710484163, 
-42.5203749838325, -53.2779509808588, -342.331556871613, -240.448491155184, 
-0.0632205135170606, 24.3383842993996, -247.999646057894, -131.317628819259, 
185.25468046062, -152.136947610032, -274.599622363622, -497.015770915989, 
-44.9868794049892, 108.206902635525), .Names = c("handle_A3", 
"handle_A4", "handle_A5", "handle_A6", "handle_A10", "handle_A11", 
"handle_A12", "handle_A15", "handle_A16", "handle_A17", "handle_A20", 
"handle_A21", "handle_A25", "handle_A26", "handle_A27", "handle_A32", 
"handle_A33", "handle_A34", "handle_A37", "handle_A38", "handle_A42", 
"handle_A43", "node3", "node4", "node5", "node10", "node11", 
"node12", "node15", "node16", "node20", "node21", "node25", "node26", 
"node27", "node28", "node32", "node33", "node34", "node37", "node38", 
"node39", "node42", "node43"), class = "minsymvec"), overunderobj = structure(c(1, 
2, 10, 4, 5, 21, 7, 18, 16, 15, 13, 8, 19, 3, 17, 12, 6, 14, 
9, 11, 20, 22), .Dim = c(11L, 2L)), symobj = structure(list(Mver = structure(c(12, 
21, 5, 11, 20, 15, 10, 4, 16, 3, 22, 13, 7, 1, 14, 19, 2, 8, 
18, 9), .Dim = c(10L, 2L)), xver = c(6, 17), Mhor = NULL, xhor = NULL, 
    Mrot = NULL, mcdonalds = FALSE, celtic = FALSE, indep = structure(c(FALSE, 
    FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, 
    TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, 
    TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, 
    TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, TRUE, TRUE, FALSE), .Names = c("handle_A1", 
    "handle_A2", "handle_A3", "handle_A4", "handle_A5", "handle_A6", 
    "handle_A7", "handle_A8", "handle_A9", "handle_A10", "handle_A11", 
    "handle_A12", "handle_A13", "handle_A14", "handle_A15", "handle_A16", 
    "handle_A17", "handle_A18", "handle_A19", "handle_A20", "handle_A21", 
    "handle_A22", "handle_A23", "handle_A24", "handle_A25", "handle_A26", 
    "handle_A27", "handle_A28", "handle_A29", "handle_A30", "handle_A31", 
    "handle_A32", "handle_A33", "handle_A34", "handle_A35", "handle_A36", 
    "handle_A37", "handle_A38", "handle_A39", "handle_A40", "handle_A41", 
    "handle_A42", "handle_A43", "handle_A44", "node1", "node2", 
    "node3", "node4", "node5", "node6", "node7", "node8", "node9", 
    "node10", "node11", "node12", "node13", "node14", "node15", 
    "node16", "node17", "node18", "node19", "node20", "node21", 
    "node22", "node23", "node24", "node25", "node26", "node27", 
    "node28", "node29", "node30", "node31", "node32", "node33", 
    "node34", "node35", "node36", "node37", "node38", "node39", 
    "node40", "node41", "node42", "node43", "node44"))), .Names = c("Mver", 
"xver", "Mhor", "xhor", "Mrot", "mcdonalds", "celtic", "indep"
))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")