knotR: Knot Diagrams using Bezier Curves

`k9_11` <-	
structure(list(minsymvec = structure(c(23.5089900106227, 215.52096602872, 
233.124055707422, 176.144333308685, 109.368182353804, -42.7714164047324, 
-142.045029702649, -265.838715120622, -296.588572214644, -285.038755611151, 
-55.5696134755417, 236.277092904058, 218.46922175053, 115.693415020484, 
-161.875278192223, -299.79509307364, -247.254975397612, 83.9823204304276, 
232.14065365936, 176.916310499851, 4.84875353051545, -97.0081171061122, 
-342.037182520886, -243.931679079296, 278.986325948658, 65.9335193297666, 
-6.4231919126182, -136.666636174117, -428.654256947186, -510.656229435209, 
-404.001739614892, -172.509149193009, -31.6900566575573, 84.8686116492375, 
111.145434034914, -133.925652912265, -357.628399284085, -429.554887668894, 
-318.507793398624, -177.297921371319, 7.82393455832911, 142.896823561266, 
327.443162945302, 268.305512311457, 72.9659075074619, 79.9931909138997, 
337.92677105592, 111.530974444102, 220.839781845387, 220.126270885007, 
141.161219213453, 64.1795722338219, -89.784168508562, -189.713170105517, 
-282.544579020845, -295.339414630781, -204.389977035683, -7.45626407289029, 
253.502543035352, 183.080718004466, -221.08456951071, -290.326195829083, 
-95.9614307716706, 133.662759238739, 231.892572544457, 111.10346137104, 
-33.6967160039438, -174.757640231236, -339.63978350662, -141.718760746954, 
197.470793636495, 46.6447645887746, -59.0823547675575, -260.005960071702, 
-469.329846739792, -477.488430490041, -303.707491030007, -120.187328644237, 
-18.4260904133065, 120.846382249073, 74.5398584768401, -220.895292068326, 
-378.034302509928, -403.437284606552, -402.346705382832, -270.879300133851, 
-101.771850171661, 53.7334057525498, 210.680598681976, 322.876845157428, 
204.302894689726, 48.4599200250896, 175.902358551604, 334.028200644988
), .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", "node1", "node2", "node3", 
"node4", "node5", "node6", "node7", "node8", "node9", "node10", 
"node11", "node12", "node13", "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"), class = "minsymvec"), overunderobj = structure(c(1, 
19, 4, 14, 7, 17, 10, 22, 12, 21, 2, 12, 5, 15, 8, 23, 11, 18
), .Dim = c(9L, 2L)), symobj = structure(list(Mver = NULL, xver = 14, 
    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, 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), .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", "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"))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", 
"exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")