knotR: Knot Diagrams using Bezier Curves

`k9_34` <- 
structure(list(minsymvec = structure(c(-28.40787046802, -37.256803130012, 
11.0729521603581, -91.3947822843874, -165.873162309329, -152.412319869597, 
-99.8195201228457, 12.84565123109, -231.249092664934, -364.130177101884, 
-367.916628370649, -141.099831889932, 12.2063928324369, -69.0549510964762, 
-170.693902838137, -169.85964432268, -161.313652536126, -93.2450859991551, 
-498.114009935144, -448.501729993351, 68.7938860106908, -162.753080336575, 
-199.519793529387, -269.397944834048, -555.736565238355, -607.706250677974, 
-391.271377460875, -259.941385899966, -100.709230722378, -738.365596626345, 
-564.477882618999, -441.397636379517, -387.143584675749, -258.854751747648, 
-31.7145546415375, -29.5393450943127, -143.682606277605, -162.589176441759, 
-136.561389406354, -47.0759528416318, -68.7776235073772, -294.978908170511, 
-365.007665518697, -299.29851774632, -84.0353205003209, -117.617272281275, 
-172.54045549582, -168.312639103212, -143.884284038112, -49.3358268958384, 
-483.769945067337, -421.950550927588, 69.0985752509291, -4.45019378038639, 
-172.039029804516, -222.968768416858, -318.96057447346, -584.528153825526, 
-541.388751411011, -371.662448035738, -180.275544734233, -116.907123719624, 
-739.039593507888, -688.564160448664, -518.139650533214, -431.409418697845, 
-345.896417173266, -211.222741522734), .Names = c("handle_A3", 
"handle_A4", "handle_A9", "handle_A10", "handle_A11", "handle_A12", 
"handle_A13", "handle_A16", "handle_A17", "handle_A18", "handle_A19", 
"handle_A20", "handle_A26", "handle_A27", "handle_A28", "handle_A29", 
"handle_A30", "handle_A31", "handle_A37", "handle_A38", "handle_A44", 
"handle_A45", "handle_A46", "handle_A47", "handle_A50", "handle_A51", 
"handle_A52", "handle_A53", "handle_A54", "handle_A61", "handle_A62", 
"handle_A63", "handle_A64", "handle_A65", "node3", "node4", "node10", 
"node11", "node12", "node13", "node16", "node17", "node18", "node19", 
"node20", "node27", "node28", "node29", "node30", "node31", "node37", 
"node38", "node43", "node44", "node45", "node46", "node47", "node50", 
"node51", "node52", "node53", "node54", "node60", "node61", "node62", 
"node63", "node64", "node65"), class = "minsymvec"), overunderobj = structure(c(2, 
16, 5, 22, 8, 20, 13, 28, 32, 25, 3, 14, 6, 33, 11, 31, 17, 21
), .Dim = c(9L, 2L)), symobj = structure(list(Mver = structure(c(10, 
20, 19, 18, 17, 11, 12, 31, 13, 30, 29, 28, 4, 3, 16, 27, 8, 
32, 33, 34, 1, 7, 6, 21, 5, 22, 23, 24, 14, 15, 2, 25), .Dim = c(16L, 
2L)), xver = c(9, 26), Mhor = NULL, xhor = NULL, Mrot = NULL, 
    exact_h = NULL, exact_v = NULL, mcdonalds = FALSE, celtic = FALSE, 
    reefknot = FALSE, center_crossing = FALSE, indep = structure(c(FALSE, 
    FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE), .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", "handle_A61", 
    "handle_A62", "handle_A63", "handle_A64", "handle_A65", "handle_A66", 
    "handle_A67", "handle_A68", "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", "node61", "node62", "node63", "node64", "node65", 
    "node66", "node67", "node68"))), .Names = c("Mver", "xver", 
"Mhor", "xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", "celtic", 
"reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")