knotR: Knot Diagrams using Bezier Curves

`k9_43` <- 
structure(list(minsymvec = structure(c(192.842959330951, 207.233879973229, 
-80.2840054513124, -100.397884287466, 43.2723676196309, -240.34819765953, 
-401.264899642418, -276.954469989882, -68.3547055826752, -39.4635643712134, 
-326.907017555227, -285.948165623744, -132.604292673386, 225.484955494287, 
366.759103513417, 342.421203689362, 161.515260457861, -69.779355853946, 
-179.621238830434, -99.0538273026927, 147.966823174184, -234.864687853248, 
-561.932826202568, -684.338271340586, -506.385342503153, -242.588747664172, 
-30.3489282549836, -238.704273487992, -424.65151028844, -531.772941401892, 
-752.463208570955, -698.366777149033, -386.860207512159, -270.272291382287, 
-184.573548461205, -384.879739580502, -442.131977667961, -484.784615923646, 
-372.816156876623, -271.521088917517, -77.3175685595902, 197.758996082784, 
111.389168619988, -106.462385492832, -75.6172218634067, -43.6138480379473, 
-313.336407812512, -367.925237858713, -203.920075590605, -40.2209378532177, 
-136.822674004261, -338.505876159878, -234.647778281307, -98.6201060128039, 
313.046031448351, 363.345903409467, 290.581911797186, 66.6181084576499, 
-97.4264056932179, -172.770720621822, 165.208545928976, -326.834885435837, 
-647.049607114611, -622.240383998388, -460.830421090123, -137.247542872241, 
-87.3637780134278, -313.239261834591, -467.415665890224, -595.959366845783, 
-769.571787549334, -582.342110227247, -338.480812366244, -260.777718297481, 
-244.006037421342, -393.068491069504, -465.208530588426, -440.470954829612, 
-349.550860865241, -170.289698274131, 8.12229468454429, -123.384248346997
), .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", "node1", "node2", "node3", "node4", 
"node5", "node6", "node7", "node8", "node9", "node10", "node11", 
"node12", "node13", "node14", "node15", "node16", "node17", "node18", 
"node19", "node21", "node22", "node23", "node24", "node25", "node26", 
"node27", "node28", "node29", "node30", "node31", "node32", "node33", 
"node34", "node35", "node36", "node37", "node38", "node39", "node40", 
"node41", "node42"), class = "minsymvec"), overunderobj = structure(c(1, 
17, 10, 4, 5, 20, 13, 8, 14, 14, 2, 3, 9, 18, 6, 19, 12, 5), .Dim = c(9L, 
2L)), symobj = structure(list(Mver = NULL, xver = 20, 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, FALSE, 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", "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"
    ))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", "exact_h", 
"exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")