knotR: Knot Diagrams using Bezier Curves

`k9_19` <- 
structure(list(minsymvec = structure(c(192.714665042729, 50.7092092386588, 
-86.4697174392884, -199.640650003095, -317.88869514931, -149.284323454374, 
68.8802234994374, 327.754322487274, 379.128313211172, 244.8140620716, 
78.5852423642126, -109.661524411871, -349.934417300823, -405.487167336922, 
-243.265076652368, -6.17984845480709, 46.4275882078476, 75.543167578745, 
3.59061340910506, -208.723343229787, -309.407699307312, -187.739417465088, 
-94.5754788660299, 62.4274543674256, 197.169845717896, 256.806303148223, 
308.101323291308, -551.189104558181, -481.380754478898, -341.004851392106, 
-318.356414999032, -423.044282113886, -599.271593666037, -499.171494372264, 
-370.11745901463, -200.245717336488, -116.25439817399, -69.6937481518062, 
-103.298357941759, -276.200869089813, -432.380919715183, -317.591915470464, 
-233.382518184341, -98.4048475262848, 70.640041779982, 171.34418630714, 
-119.864386227767, -157.909352665093, -73.1320660643561, 43.6343126792428, 
15.0691673226822, -131.321524065886, -422.83182225516, 139.083053457991, 
-2.5946359636015, -122.901046468082, -235.461843685368, -280.857483217784, 
-58.4721320182638, 178.905405736361, 358.738414646403, 338.159859974048, 
166.152618936742, -200.328724662125, -377.72132344154, -364.482373163273, 
-153.346050592387, 12.3534148030496, 57.2654767840598, 57.5390420409099, 
-43.8924186709647, -295.642114161204, -270.493631123505, -146.36719211889, 
-39.7059094750482, 106.796056522667, 229.549545660194, 277.051886270023, 
278.565017531802, -537.82214228762, -423.209627816292, -328.972624613709, 
-340.503446096506, -499.423348269048, -574.083474224517, -437.176497936215, 
-315.929242206495, -159.72210064325, -112.579744798979, -108.233712012549, 
-64.8724042495479, -156.284485488756, -333.258972449938, -415.092609397624, 
-289.757771443946, -194.49134318546, -38.6810074385022, 100.413761574527, 
67.066506030304, -140.042638417135, -131.676487026344, -22.9371360008092, 
40.3961669191324, -36.4700959526978, -256.660926188708, -475.638696145141
), .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_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", "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"), class = "minsymvec"), overunderobj = structure(c(19, 
26, 8, 2, 16, 5, 11, 23, 13, 24, 10, 27, 7, 3, 15, 18, 12, 21
), .Dim = c(9L, 2L)), symobj = structure(list(Mver = NULL, xver = 11, 
    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, 
    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, 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")