knotR: Knot Diagrams using Bezier Curves

`k9_17` <-	
structure(list(minsymvec = structure(c(2.47334506302173, -168.121375794662, 
-375.059893639439, -489.127690420039, -246.027073227719, -203.289592394571, 
-263.172372911829, -323.908033280665, -20.7627091588679, -1.65613100128779, 
-168.2596734258, -278.298211708912, -271.278400320138, -14.8072285897662, 
-91.3950805273135, -97.7102687480553, -125.193905912789, 164.712101292214, 
199.384436021698, 119.87786507146, 16.0329012259454, -185.294819491963, 
-147.591203088295, -85.5982882434634, 27.1255045293637, 264.935356207359, 
-75.7667465541916, -231.202183648117, -437.743737866628, -396.361282754168, 
-231.803068215074, -220.155278349929, -286.93201264254, -233.619978577835, 
-79.3853156548628, -207.303801389003, -295.589676328941, -186.328289192898, 
-77.9459868664424, -111.215625861491, -44.3519064650224, 213.912433940785, 
178.147231575649, 71.7752676030701, -40.9012967165036, -262.336377963061, 
-339.798491769815, -146.234273224545, -29.5906990019532, 102.87711576489, 
313.532488878242, 362.134944111004), .Names = c("handle_A5", 
"handle_A6", "handle_A7", "handle_A8", "handle_A9", "handle_A10", 
"handle_A11", "handle_A12", "handle_A13", "handle_A22", "handle_A23", 
"handle_A24", "handle_A25", "handle_A26", "handle_A31", "handle_A32", 
"handle_A33", "handle_A34", "handle_A35", "handle_A36", "handle_A37", 
"handle_A38", "handle_A48", "handle_A49", "handle_A50", "handle_A51", 
"node5", "node6", "node7", "node8", "node9", "node10", "node11", 
"node12", "node22", "node23", "node24", "node25", "node31", "node32", 
"node33", "node34", "node35", "node36", "node37", "node38", "node39", 
"node48", "node49", "node50", "node51", "node52"), class = "minsymvec"), 
    overunderobj = structure(c(2, 16, 4, 22, 6, 12, 9, 24, 20, 
    18, 3, 21, 5, 23, 7, 25, 11, 15), .Dim = c(9L, 2L)), symobj = structure(list(
        Mver = structure(c(25, 8, 7, 9, 10, 24, 5, 23, 22, 11, 
        6, 12, 1, 18, 19, 17, 16, 2, 21, 3, 4, 15, 20, 14), .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, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, 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")