knotR: Knot Diagrams using Bezier Curves

`k9_21` <- 
structure(list(minsymvec = structure(c(94.2674109340148, 217.232732787464, 
218.781114778953, 196.298660104458, 84.1088422088772, -143.074183215051, 
-307.891616170889, -388.7477751634, -284.640558347485, -94.3341035380487, 
76.7160767877521, 256.788009941162, 384.044411124701, 337.189785399123, 
229.03634182612, 87.3314401256069, -105.422902535048, -39.6857432288632, 
100.890300291768, 273.5735080948, 418.075238663012, 343.608194591547, 
190.471072777261, 64.1204226567976, -28.0860921905547, -120.434267039509, 
-220.157289350475, -341.737635679953, -32.8594189123372, -19.7318554229379, 
-213.267153640095, -254.127193640877, -361.812173952856, -555.784885204334, 
-665.173111307073, -640.260912561064, -348.890728517756, -236.82731886632, 
-311.765935158432, -253.329404530126, -156.314785335897, -261.226189908334, 
-438.249751931825, -644.576412647893, -772.285598335621, -620.781534661952, 
-510.729667422928, -534.593428523995, -636.072935698704, -546.788195991434, 
-410.149380115055, -328.704511054264, -255.38407968629, -246.545601736233, 
-299.562636375284, -333.533644688713, -196.906589788784, 153.709954265054, 
217.931368538164, 214.620922783476, 144.659411495751, 8.47212253975027, 
-177.893811578909, -366.56291965887, -363.903194648719, -200.451613145578, 
-19.1765921781212, 136.426420326573, 304.946062119978, 378.395593200874, 
290.569053708604, 194.870179483193, -7.72732621912465, -91.078368557297, 
11.7123305898652, 162.474240576692, 331.558836576534, 403.470338879464, 
283.231592287839, 136.759452461185, 32.6064898978, -64.0323342166316, 
-150.300524600638, -258.84562435026, -255.395870024431, -78.2846698449774, 
-226.335322850561, -279.894445532207, -444.982548312171, -609.423532608552, 
-661.755952042846, -535.897807525258, -314.432026052162, -251.770375093933, 
-306.033081709068, -208.016049506296, -182.016581415548, -330.594422195337, 
-526.160553614789, -680.476568222458, -740.379695471423, -580.98589177985, 
-510.535524561254, -570.882109822507, -619.178834704584, -493.146399395262, 
-376.061349734813, -299.057056844046, -249.766312364328, -262.338943699286, 
-313.258172959106, -307.654785321957, -104.456868005817, -12.1604647574414
), .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", "handle_A57", "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", "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", "node57", "node58"), class = "minsymvec"), 
    overunderobj = structure(c(2, 23, 5, 17, 9, 26, 11, 14, 20, 
    12, 4, 19, 6, 28, 10, 24, 22, 15), .Dim = c(9L, 2L)), symobj = structure(list(
        Mver = NULL, xver = 29, 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, 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, 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, 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", "handle_A57", "handle_A58", 
        "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", "node57", "node58"))), .Names = c("Mver", 
    "xver", "Mhor", "xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", 
    "celtic", "reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")