knotR: Knot Diagrams using Bezier Curves

`k8_11` <- 
structure(list(minsymvec = structure(c(327.88693343975, 299.048597911315, 
117.199195958967, 9.18542034842718, -41.8032033414036, -153.369407270634, 
-297.868582824696, -292.425034740783, 102.759422132808, -44.6682772869192, 
-80.9273753677019, 23.2497453231353, 193.341611872412, 417.027077301645, 
258.069356026876, 0.585127918751391, -192.980798392722, -362.357419323625, 
-237.197546340387, -49.7474722325888, -32.5583828186078, 108.216888937116, 
-76.668458681357, -364.053325595269, -596.211376431343, -624.6847819549, 
-554.80308823017, -289.73404701789, 98.9829522524916, 82.1463794184648, 
-82.3406328852474, -298.747890683891, -446.272210186388, -604.174549763771, 
-509.051948372324, -305.780162300025, -444.680292600643, -587.569088089948, 
-478.289086261346, -319.71964698662, -241.536108863785, -67.0899232582476, 
137.563098341931, 327.607717293652, 230.777265271964, 80.0939640792356, 
-79.2332091540486, -210.617910454318, -307.642342304114, -135.58622793628, 
60.1443651085087, -83.8829144797266, -50.001664668577, 78.7439181567139, 
276.075909471479, 388.465770690066, 156.959095475977, -67.3083242528457, 
-260.635093717114, -334.89630717739, -172.709489013095, -26.060759195656, 
-6.49678202576497, 201.666915274243, -166.948727262424, -466.103381137304, 
-610.514215900675, -625.151688385447, -605.828266515387, -448.717688776057, 
-195.424621074239, 155.930293790707, -3.1036443069358, -154.214838324707, 
-346.786497236803, -497.117538558895, -595.773069821783, -427.087453351471, 
-344.071564827263, -497.537114142812, -568.547579410238, -412.628562150813, 
-291.431231131634, -170.656762210642, 13.3191836400903, 86.9090306898423
), .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_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", "node1", 
"node2", "node3", "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"
), class = "minsymvec"), overunderobj = structure(c(22, 10, 20, 
7, 17, 12, 15, 3, 9, 21, 11, 19, 6, 16, 2, 13), .Dim = c(8L, 
2L)), symobj = structure(list(Mver = NULL, xver = 4, 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, FALSE, 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), .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", "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"))), .Names = c("Mver", "xver", "Mhor", 
"xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", "celtic", 
"reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")