knotR: Knot Diagrams using Bezier Curves

`k8_4` <- 
structure(list(minsymvec = structure(c(474.460827110734, 231.496706007508, 
181.912626521724, 184.933177297531, 149.038106962285, 55.6881439540575, 
-87.7481525036229, -175.049723317677, -152.830072819163, -130.421371938363, 
-150.21148934139, -152.088095343634, -117.448563151428, 176.805619079275, 
281.035293958708, 258.330467595596, 163.662491707943, 93.5069740940577, 
64.2974800698939, -46.0038030584795, -373.615389585837, -399.251495946289, 
-88.5078784901721, -78.1446354088707, -154.021940377234, -199.68900714127, 
-149.683919701622, -96.6041568976052, -63.8297536837022, 36.2568271261536, 
-233.681540402953, -456.892739543492, -420.89594549578, -281.54712778858, 
-154.187672660513, -107.489312549074, -186.075053444962, -296.653539382033, 
-388.260431129678, -487.221726899568, -590.913549271559, -689.317991617967, 
-684.71897443513, -419.011957376616, -364.236780738518, -288.957515200632, 
-210.241245389486, -105.29480283081, 80.7358078798428, -278.104687425156, 
-591.22308322523, -628.843792778004, -554.137731672227, -468.191787530876, 
-356.073321862759, -271.383133687951, -190.616914862841, -100.003668353313, 
76.7999422460011, 404.672852462348, 222.95083305923, 175.032296427088, 
178.989590397714, 120.19320625574, -123.102870345614, -173.927905885273, 
-142.230623791599, -133.089960183752, -154.747485949914, -147.9041660235, 
-20.2995719051072, 244.660106952449, 275.273190344377, 225.51166609837, 
134.717648516357, 79.2600115271595, 44.3233949363263, -192.797431734622, 
-380.246856865276, -263.817700024344, -83.1484448336985, -101.429943583315, 
-177.991098017163, -188.178833485886, -124.753917849903, -83.6895232088751, 
-43.5964836300602, 192.039759557975, -379.735279080927, -450.983010063664, 
-366.093073047462, -233.252992926081, -135.198423216486, -111.331804774284, 
-128.665838254044, -223.909719589893, -335.73106971609, -419.690226921355, 
-527.292482124086, -603.223649192121, -709.44222870559, -593.51155393457, 
-404.330988288991, -332.384968339638, -260.520418934767, -175.082362316473, 
-59.8728312879894, 5.57985729731401, -334.496051005121, -662.954466400471, 
-606.517052704096, -517.723764351501, -429.948006112231, -325.822028434339, 
-234.421103909304, -162.750000658126, -59.6642067191428, 30.3389424894393
), .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_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", "handle_A55", 
"handle_A56", "handle_A57", "handle_A58", "handle_A59", "handle_A60", 
"node1", "node2", "node3", "node4", "node5", "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", "node55", "node56", "node57", 
"node58", "node59", "node60"), class = "minsymvec"), overunderobj = structure(c(2, 
17, 6, 29, 9, 25, 13, 30, 15, 4, 19, 7, 27, 11, 23, 20), .Dim = c(8L, 
2L)), symobj = structure(list(Mver = NULL, xver = 6, 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, 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, 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, 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", "handle_A55", "handle_A56", "handle_A57", "handle_A58", 
    "handle_A59", "handle_A60", "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", "node55", "node56", "node57", "node58", "node59", 
    "node60"))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", 
"exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")