knotR: Knot Diagrams using Bezier Curves

`k9_25` <- 
structure(list(minsymvec = structure(c(181.506818489177, 83.2418313707861, 
-160.885698904013, -306.017140074306, -340.018081711148, -230.84718388964, 
-67.0910442014623, -14.5217466380678, -122.020110147386, -29.3721923604151, 
-24.1540824030633, 66.3566874419281, 181.797724642898, 381.368073803475, 
234.875924519072, 186.638364065427, 57.9957165564969, -83.7650474275644, 
-189.00436442865, -277.510800710624, -98.046702429301, 187.869743840662, 
-427.308431280838, -234.194049806749, -135.984051475512, 92.1105801181271, 
-2.24801182215173, -305.604145331573, -499.114157646889, -277.830232611612, 
50.0960447988023, 259.672420131388, 201.553837714116, 19.4684232448595, 
9.09551206650585, 13.0791905585966, -6.81804410924334, 12.1531703900172, 
70.3150111772811, 300.196547456885, 222.149839546654, -221.696362682242, 
-310.467628994807, -322.345461249015, -157.856785831935, -35.6619840342662, 
-58.0653545177115, -99.6945455316439, -26.6177028348661, 99.261057430784, 
251.169791770037, 356.872801604794, 220.531427798142, 142.600794812783, 
-1.64717751577882, -124.458670161328, -196.852322469438, -244.370951828815, 
4.36783891421642, 140.814430563493, -463.204922451156, -364.421841502244, 
-221.337496801835, -50.7575513464619, 72.749815783238, -62.0644727585026, 
-369.711911857341, -557.069166836959, -629.627223355304, -213.017518107093, 
126.946519648728, 261.995473536776, 121.602725378067, 16.2300200983888, 
7.0993126140825, 9.1005989103299, -4.64627950553848, 17.262139354225, 
166.980865315373, 279.747247389124), .Names = c("handle_A1", 
"handle_A5", "handle_A6", "handle_A7", "handle_A8", "handle_A9", 
"handle_A10", "handle_A12", "handle_A13", "handle_A14", "handle_A17", 
"handle_A19", "handle_A20", "handle_A21", "handle_A22", "handle_A23", 
"handle_A24", "handle_A25", "handle_A26", "handle_A27", "handle_A28", 
"handle_A29", "handle_A34", "handle_A35", "handle_A36", "handle_A37", 
"handle_A38", "handle_A40", "handle_A41", "handle_A45", "handle_A47", 
"handle_A48", "handle_A49", "handle_A50", "handle_A51", "handle_A52", 
"handle_A53", "handle_A54", "handle_A55", "handle_A56", "node1", 
"node6", "node7", "node8", "node9", "node10", "node12", "node13", 
"node17", "node19", "node20", "node21", "node22", "node23", "node24", 
"node25", "node26", "node27", "node28", "node29", "node33", "node34", 
"node35", "node36", "node37", "node38", "node40", "node41", "node42", 
"node45", "node47", "node48", "node49", "node50", "node51", "node52", 
"node53", "node54", "node55", "node56"), class = "minsymvec"), 
    overunderobj = structure(c(20, 2, 16, 6, 27, 10, 18, 12, 
    24, 1, 22, 5, 13, 9, 25, 11, 17, 19), .Dim = c(9L, 2L)), 
    symobj = structure(list(Mver = structure(c(10, 17, 12, 13, 
    6, 7, 8, 18, 11, 16, 15, 4, 3, 2), .Dim = c(7L, 2L)), xver = c(5, 
    14), Mhor = NULL, xhor = NULL, Mrot = NULL, exact_h = NULL, 
        exact_v = NULL, mcdonalds = FALSE, celtic = FALSE, reefknot = FALSE, 
        center_crossing = FALSE, indep = structure(c(TRUE, FALSE, 
        FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
        TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, 
        FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, 
        TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, 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", "handle_A53", "handle_A54", "handle_A55", 
        "handle_A56", "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", "node53", 
        "node54", "node55", "node56"))), .Names = c("Mver", "xver", 
    "Mhor", "xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", 
    "celtic", "reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")