knotR: Knot Diagrams using Bezier Curves

`k9_20` <-
structure(list(minsymvec = structure(c(172.62610618588, 160.064308214078, 
168.710855651744, 224.862635517862, 302.518068891426, 99.132812730608, 
-221.308262115538, -210.070265707374, -157.492754825443, -45.8759854242113, 
60.2783691859212, 140.041755375443, 244.472011916747, 157.623773253006, 
12.777755156012, -213.368021946381, -325.420413250536, -241.296582026695, 
-52.4333523877418, 145.244410908222, 345.263977935155, 411.949707939173, 
137.293419562249, 20.7901444316347, -97.462152277801, -203.183408578931, 
-148.338483458087, 93.4949979204262, -45.6078403287824, -134.866722809895, 
-217.532997418754, -376.590069762966, -583.310390286912, -576.959927377333, 
-290.249558453171, -274.42373762961, -347.213051486112, -376.367137303999, 
-326.753689865044, -175.125776702043, -18.1139803620799, 68.7529421757409, 
42.8636796852765, -150.530064108837, -346.14536294617, -319.794558993902, 
-338.704781284117, -317.471749138181, 9.32738418721233, 123.47683249888, 
28.8642143038794, -15.3383600637561, 63.0181483535034, 171.569966306862, 
161.316654278484, 184.394016227958, 249.44046006447, 249.86658066916, 
18.9342355857666, -264.13256808928, -200.94895845652, -110.687277628776, 
-9.08227381844588, 89.3694707089327, 177.675620880918, 228.012706766383, 
93.4497037004607, -62.3939483541972, -261.409846455938, -308.661943000476, 
-157.407523453076, 34.7170454318685, 204.725437394092, 389.772231109803, 
316.602506014371, 88.9463868642352, -18.5360929761112, -134.615704739142, 
-198.315106564081, 41.2511387181152, -78.5516890720133, -164.644340126448, 
-261.079553269631, -461.510966437244, -591.068872008623, -449.609607316596, 
-287.341104899967, -297.032932325996, -362.909563695177, -363.56398678386, 
-269.604021418367, -108.30836227551, 14.3756364864318, 74.6567791989118, 
-18.4339049269222, -217.730272352755, -351.8366702361, -315.304014336344, 
-338.085932053854, -218.252284510586, 82.492066578903, 92.0498634638032, 
8.56209688728034, 2.11993275008957, 118.142484356488, 256.247325673559
), .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", "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", "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"), class = "minsymvec"), overunderobj = structure(c(1, 
14, 4, 21, 8, 19, 12, 16, 24, 23, 2, 13, 5, 18, 10, 20, 26, 15
), .Dim = c(9L, 2L)), symobj = structure(list(Mver = NULL, xver = 27, 
    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, 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, 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), .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", "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"
    ))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", "exact_h", 
"exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")