knotR: Knot Diagrams using Bezier Curves

`k9_42` <- 
structure(list(minsymvec = structure(c(55.635025357747, 176.039951064744, 
65.4175982647954, -76.6359394336257, -134.417124472222, -127.686129040079, 
8.23664211414657, 183.823356036791, 173.85061409536, 63.7658950922402, 
89.146317188733, 167.240492953443, 344.647319062615, 181.924627913829, 
-62.5512864619089, -184.141472034951, -277.730081574533, -421.646883761748, 
-361.778877382074, -220.472339401048, -34.166573253399, -43.5574195318987, 
-116.613201978489, -320.164784542415, -448.299651023181, -382.876453793497, 
-208.46353990661, -12.1432753028058, 20.9852448087039, -96.4155406653373, 
-261.398546411747, -333.523495270264, -428.214401672416, -529.930660473414, 
-683.252904714707, -641.417848129001, -454.394297192669, -230.926881501076, 
-122.792353851145, -34.003356949353, -290.135466651855, -470.811898990646, 
-671.62963023669, -676.12301808998, -579.434680483796, -319.257046316533, 
-144.551746328422, -106.542860267569, -381.824631588422, -443.350648016719, 
-532.947362177859, -595.575155955148, -487.776652241772, -340.878107901018, 
-88.9920200981315, 97.2222346996029, 151.095315395242, 11.0559645776981, 
-101.6231523086, -134.800335054786, -80.8617311962654, 67.5917196897706, 
196.00712108954, 125.653260751631, 66.4729008126217, 95.8621139460778, 
260.981830312342, 285.31056433974, 77.4454813995845, -101.701213165473, 
-224.865935938206, -332.827979047132, -414.957798910076, -326.998191511818, 
-123.978991601862, -36.0678078273858, -63.0225827582712, -194.611032971394, 
-368.488648462432, -434.931258952696, -302.860532773093, -140.945200066936, 
-7.30898318735134, -167.349699120421, -287.9808024841, -364.844389219304, 
-456.706362979849, -589.558776698644, -682.69364428786, -572.80378316536, 
-360.988467658633, -189.326221773414, -114.996961659582, -95.1815223771763, 
-378.535650944213, -563.142336542655, -677.419849343916, -644.921698105978, 
-464.950025240448, -249.798416710554, -131.37449162289, -205.62380925996, 
-399.43071016405, -472.327410943279, -560.562568841439, -569.590405058425, 
-422.70429562456, -242.46008871036, -33.9286260482272, 21.6735457908661
), .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", "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", 
"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"
), class = "minsymvec"), overunderobj = structure(c(2, 10, 21, 
6, 7, 14, 17, 26, 20, 12, 3, 4, 23, 15, 9, 24, 18, 27), .Dim = c(9L, 
2L)), symobj = structure(list(Mver = NULL, xver = 28, 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, 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, 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", "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")