knotR: Knot Diagrams using Bezier Curves

`k9_6` <- 
structure(list(minsymvec = structure(c(-6.00735155066393, -219.032679692831, 
-281.283528555263, -163.719437091715, -13.5093540090438, -125.480972886148, 
-45.5965277573092, -25.8070719070285, -17.6692593863161, -165.975470070305, 
-180.248758402013, -217.423189835852, -205.149408215607, -91.0230416113006, 
-460.050156113514, -335.433583211139, -180.414945753142, -76.4025208341859, 
235.575919081534, 405.681295313255, 204.857799065359, -486.925690601232, 
-468.007409094476, -323.32076796339, -40.8965612954998, 219.774022286589, 
-95.0041064791531, -249.868961629736, -246.12473236232, -81.9082690015719, 
-51.5913611027409, -112.114565348125, -31.9996806883279, -67.1930938603715, 
-186.136702874031, -179.575100692446, -218.84263189053, -176.630123454368, 
-400.558159012863, -287.597530805151, -133.16284792535, -25.1732057547648, 
289.311826334571, 474.707343317167, 574.934759127256, 140.433188555524, 
-490.552227055928, -412.218508535308, -206.806078008605, 59.6029551604957, 
270.792740945826, 379.120814489581), .Names = c("handle_A6", 
"handle_A7", "handle_A8", "handle_A9", "handle_A11", "handle_A12", 
"handle_A13", "handle_A16", "handle_A21", "handle_A22", "handle_A23", 
"handle_A24", "handle_A25", "handle_A26", "handle_A32", "handle_A33", 
"handle_A34", "handle_A35", "handle_A37", "handle_A38", "handle_A42", 
"handle_A47", "handle_A48", "handle_A49", "handle_A50", "handle_A51", 
"node6", "node7", "node8", "node9", "node11", "node12", "node16", 
"node21", "node22", "node23", "node24", "node25", "node32", "node33", 
"node34", "node35", "node37", "node38", "node39", "node42", "node47", 
"node48", "node49", "node50", "node51", "node52"), class = "minsymvec"), 
    overunderobj = structure(c(1, 18, 4, 21, 7, 24, 10, 16, 12, 
    15, 3, 20, 6, 23, 9, 17, 11, 26), .Dim = c(9L, 2L)), symobj = structure(list(
        Mver = structure(c(12, 25, 11, 16, 24, 9, 8, 23, 7, 6, 
        22, 21, 14, 1, 15, 10, 2, 17, 18, 3, 19, 20, 4, 5), .Dim = c(12L, 
        2L)), xver = c(13, 26), Mhor = NULL, xhor = NULL, Mrot = NULL, 
        exact_h = NULL, exact_v = NULL, mcdonalds = FALSE, celtic = FALSE, 
        reefknot = FALSE, center_crossing = FALSE, indep = structure(c(FALSE, 
        FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 
        TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, 
        TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, 
        TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, 
        TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .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", "handle_A45", "handle_A46", 
        "handle_A47", "handle_A48", "handle_A49", "handle_A50", 
        "handle_A51", "handle_A52", "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", "node45", 
        "node46", "node47", "node48", "node49", "node50", "node51", 
        "node52"))), .Names = c("Mver", "xver", "Mhor", "xhor", 
    "Mrot", "exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", 
    "center_crossing", "indep"))), .Names = c("minsymvec", "overunderobj", 
"symobj"), class = "knot")