knotR: Knot Diagrams using Bezier Curves

`pretzel_2_3_7` <-
structure(list(minsymvec = structure(c(8.12950239542851, -132.913739910105, 
-279.873012283456, -398.475570769652, -225.648896616213, -122.168024408253, 
-30.2934550941594, -119.918667347906, -133.213195991519, -135.945258968044, 
-5.52752520046634, -116.972607893225, -267.503923882585, -364.097271929567, 
-414.871930671792, -426.926102355517, -257.898358485678, -126.450853697998, 
-303.070942977384, -299.814215628442, -372.044920506496, -283.35822052262, 
-109.729154559184, -9.43613174865375, 272.807337546279, 163.968746964794, 
85.7884931453024, -71.7986925172951, -251.387602228674, -347.187866305548, 
-338.008291182248, -254.407080353855, -162.521269511726, -66.5060036620841, 
161.678544645375, -58.3304753188256, -200.534528350175, -330.387596373477, 
-291.914461437062, -208.721823890502, -56.8646799110889, -73.9697679659823, 
-128.56298238343, -138.824285397451, -67.6126881854499, -73.61284087852, 
-184.316004224431, -307.552771837537, -387.709816616398, -416.216205399827, 
-377.731077258925, -187.42966573711, -323.157630812828, -313.96962201121, 
-354.769859132352, -176.303370547977, -92.7244515104692, -24.8034439224765, 
237.500022388435, 111.913754887945, 45.9250837809684, -78.0271791027587, 
-268.80195311134, -371.567514185561, -293.962217724392, -221.833417376597, 
-152.077715771513, 21.9453885090119, 169.6415051843, 155.785477436875
), .Names = c("handle_A8", "handle_A9", "handle_A10", "handle_A11", 
"handle_A12", "handle_A13", "handle_A18", "handle_A19", "handle_A20", 
"handle_A21", "handle_A28", "handle_A29", "handle_A30", "handle_A31", 
"handle_A32", "handle_A33", "handle_A34", "handle_A35", "handle_A43", 
"handle_A44", "handle_A45", "handle_A46", "handle_A47", "handle_A48", 
"handle_A53", "handle_A54", "handle_A55", "handle_A56", "handle_A63", 
"handle_A64", "handle_A65", "handle_A66", "handle_A67", "handle_A68", 
"handle_A69", "node8", "node9", "node10", "node11", "node12", 
"node13", "node18", "node19", "node20", "node21", "node28", "node29", 
"node30", "node31", "node32", "node33", "node34", "node43", "node44", 
"node45", "node46", "node47", "node48", "node53", "node54", "node55", 
"node56", "node63", "node64", "node65", "node66", "node67", "node68", 
"node69", "node70"), class = "minsymvec"), overunderobj = structure(c(1, 
5, 26, 7, 28, 9, 30, 11, 21, 14, 23, 19, 17, 25, 6, 27, 8, 29, 
10, 31, 13, 22, 15, 35), .Dim = c(12L, 2L)), symobj = structure(list(
    Mver = structure(c(18, 34, 33, 32, 31, 19, 20, 13, 21, 12, 
    11, 30, 10, 9, 29, 28, 8, 17, 1, 2, 3, 4, 16, 15, 22, 14, 
    23, 24, 5, 25, 26, 6, 7, 27), .Dim = c(17L, 2L)), xver = 35, 
    Mhor = NULL, xhor = NULL, Mrot = NULL, mcdonalds = FALSE, 
    celtic = FALSE, indep = structure(c(FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
    FALSE, FALSE, FALSE, 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", "handle_A61", "handle_A62", "handle_A63", 
    "handle_A64", "handle_A65", "handle_A66", "handle_A67", "handle_A68", 
    "handle_A69", "handle_A70", "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", "node69", "node70"))), .Names = c("Mver", 
"xver", "Mhor", "xhor", "Mrot", "mcdonalds", "celtic", "indep"
))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")