knotR: Knot Diagrams using Bezier Curves

`k8_10` <- 
structure(list(minsymvec = structure(c(-125.233182975612, -276.425742940021, 
-181.970547551091, -97.3233657880581, 43.2835886723676, 359.220789730359, 
407.481842585336, 258.885884929479, 94.351567913593, -135.802132673705, 
-324.36133015856, -408.271895556614, -189.380179216652, 20.378368926539, 
117.84240537946, 10.3278666821196, -45.8707558500568, -136.524506142324, 
33.1332468790603, 300.206955331257, 315.76328952799, 276.453563684742, 
22.3209887632755, 312.467122221157, 58.9792777568264, -275.040897893065, 
-329.366070554235, -301.30538702039, -178.914437123008, 8.05743810659448, 
86.074661271326, 81.0369875877984, 67.3643168531094, -147.773928829248, 
-220.500336222557, -151.710428674779, 125.680830157813, 199.928142841917, 
77.596336097904, -358.229015137183, -324.901747476357, -186.808724686007, 
142.785814383112, -203.352002646103, -250.67759332938, -158.449135983909, 
-41.9706673230053, 175.492551181246, 391.342260642147, 360.459967255362, 
193.889971780443, -193.40035654684, -370.825858857888, -339.605128854767, 
-133.956893676032, 81.6576852891646, 84.2769606425004, -77.5478408447046, 
-104.378899851177, 139.808022061475, 314.370445619719, 290.562643952467, 
197.629548096873, 228.267543208025, -88.6139348957131, -292.698808644602, 
-326.506767215397, -247.559798139954, -119.043667177256, 48.0492330412706, 
84.5440128685277, 77.3380354607645, 76.9653835452289, 5.31556787480433, 
-197.006085421332, -203.661963345005, -53.984950082896, 162.917771337876, 
201.20910234157, 168.981539756906, -34.5018037164278, -379.775981531274, 
-272.063685921645, -55.6405607376293, 227.264386440746, 314.248488516816
), .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_A33", "handle_A34", "handle_A35", 
"handle_A36", "handle_A37", "handle_A38", "handle_A40", "handle_A41", 
"handle_A42", "handle_A43", "handle_A44", "handle_A45", "node1", 
"node2", "node3", "node4", "node5", "node6", "node7", "node8", 
"node10", "node11", "node12", "node13", "node14", "node15", "node17", 
"node18", "node19", "node20", "node21", "node22", "node24", "node25", 
"node26", "node27", "node28", "node29", "node30", "node31", "node32", 
"node33", "node34", "node35", "node36", "node37", "node38", "node39", 
"node40", "node41", "node42", "node43", "node44", "node45", "node46"
), class = "minsymvec"), overunderobj = structure(c(22, 6, 19, 
14, 18, 9, 3, 11, 8, 21, 5, 19, 10, 15, 13, 2), .Dim = c(8L, 
2L)), symobj = structure(list(Mver = NULL, xver = c(9, 16, 23
), 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, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, FALSE, 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), .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", "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"))), .Names = c("Mver", "xver", "Mhor", 
"xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", "celtic", 
"reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")