knotR: Knot Diagrams using Bezier Curves

`k9_44` <- 
structure(list(minsymvec = structure(c(232.757699593016, 203.924431997787, 
88.1725626952734, -64.3154600035812, -289.640164357788, -235.657538488443, 
-25.2373930023698, 271.227634698695, 285.416176756458, 105.9452480383, 
-173.169845515751, -267.106997773369, -235.907430453068, -29.7198081724687, 
130.220589033698, 17.0005615920451, -145.256198570201, -11.811134465778, 
78.1495980436697, 112.605324494259, -43.1472807543771, -70.0756198715093, 
-21.9848611581742, -6.46996215399851, -266.00186842125, -350.671634030668, 
-420.934461159086, -318.423146173129, -92.9932617216791, -57.4890676881439, 
-296.345547090947, -530.077856863224, -715.554260320708, -660.652438093376, 
-539.294056241442, -330.383780570144, -224.86533450574, -379.353218117238, 
-533.735300239463, -755.783835174739, -898.891513826476, -669.82181009807, 
-370.523561384317, -197.37899146598, -20.8770813438125, 254.12166128973, 
166.696186272405, 41.8869393097733, -144.844872776875, -291.303286864258, 
-169.566326260351, 102.834781924313, 285.746145006174, 236.28730164213, 
-0.60985751706213, -204.197380975125, -268.973777765134, -172.226313316716, 
34.9956386938683, 99.144135660136, -49.4054625531031, -111.572363324833, 
112.936019296229, 85.1437979014226, -57.7272006134067, -59.4004681421469, 
57.9807154702771, -102.457726763237, -297.330086255346, -372.444185294232, 
-398.730762769585, -236.229678836711, -70.7413603593993, -144.232681340721, 
-372.144476425172, -599.829952508675, -714.85657862487, -626.424155124222, 
-468.668894263438, -281.304317611416, -264.961265600705, -449.301264228183, 
-602.777693842455, -827.31496018612, -900.307300369353, -824.30123648253, 
-616.590238577235, -307.693735026707, -149.748324507266, 7.38250749702895
), .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_A42", "handle_A43", "handle_A44", "handle_A45", 
"handle_A46", "node1", "node2", "node3", "node4", "node5", "node6", 
"node7", "node8", "node9", "node10", "node11", "node12", "node13", 
"node14", "node15", "node16", "node17", "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"), class = "minsymvec"), 
    overunderobj = structure(c(8, 20, 11, 16, 3, 22, 13, 23, 
    4, 2, 10, 17, 21, 15, 14, 5, 7, 21), .Dim = c(9L, 2L)), symobj = structure(list(
        Mver = NULL, xver = 18, 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, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        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", "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"))), .Names = c("Mver", "xver", "Mhor", "xhor", 
    "Mrot", "exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", 
    "center_crossing", "indep"))), .Names = c("minsymvec", "overunderobj", 
"symobj"), class = "knot")