knotR: Knot Diagrams using Bezier Curves

`k12n838` <-
structure(list(minsymvec = structure(c(-26.9327932017017, -20.4696183610125, 
-29.7188478436524, 7.23367528959929, -43.5926296662936, -110.37617591571, 
-246.807077399739, -263.513925805327, -131.598969631803, 5.04493372295993, 
-94.0726343269737, -250.899336611996, -272.013777584344, -247.337556318674, 
-105.666599328865, -3.20103948402331, -107.760047056366, -128.568539798881, 
-137.437328297955, -11.8691883045867, -416.481579927195, -220.537074980645, 
-155.940214519644, -689.400172296806, -602.508830302006, -383.97453797454, 
-128.739612469218, -46.8461263984071, -244.726185114485, -306.696944449887, 
-408.246819541192, -534.970155478333, -595.50018740155, -610.281612732896, 
-402.482753526751, -263.347196486685, -181.867249750265, -18.0091634487053, 
-29.5499128601487, -26.9717465205751, -26.9970680176148, -77.6676989802467, 
-160.164262818765, -269.021538923823, -221.440889516037, -61.2985187898779, 
-42.414566052487, -157.991385900226, -268.271322904181, -268.509783320585, 
-196.325336507612, -54.6259963026381, -46.2506208787132, -116.548038007752, 
-130.353039298285, -99.2644282723532, -468.26209231131, -197.47911862403, 
-146.415861863906, -689.621229821122, -659.061767095651, -495.446787413739, 
-292.579160523813, -89.5560698104312, -67.190970036788, -276.067429971013, 
-349.437433329901, -453.267178720048, -543.867681969569, -613.052818077252, 
-581.876506030174, -356.150276997529, -232.872941970756, -123.331729117311, 
25.521444355821, 70.4536127053451), .Names = c("handle_A5", "handle_A12", 
"handle_A13", "handle_A19", "handle_A20", "handle_A21", "handle_A22", 
"handle_A23", "handle_A24", "handle_A27", "handle_A28", "handle_A29", 
"handle_A30", "handle_A31", "handle_A32", "handle_A34", "handle_A35", 
"handle_A36", "handle_A37", "handle_A38", "handle_A43", "handle_A50", 
"handle_A51", "handle_A58", "handle_A59", "handle_A60", "handle_A61", 
"handle_A62", "handle_A65", "handle_A66", "handle_A67", "handle_A68", 
"handle_A69", "handle_A70", "handle_A72", "handle_A73", "handle_A74", 
"handle_A75", "node5", "node12", "node13", "node20", "node21", 
"node22", "node23", "node24", "node27", "node28", "node29", "node30", 
"node31", "node32", "node34", "node35", "node36", "node37", "node43", 
"node50", "node51", "node57", "node58", "node59", "node60", "node61", 
"node62", "node65", "node66", "node67", "node68", "node69", "node70", 
"node72", "node73", "node74", "node75", "node76"), class = "minsymvec"), 
    overunderobj = structure(c(2, 11, 5, 33, 7, 17, 27, 14, 32, 
    22, 37, 28, 15, 4, 34, 6, 18, 10, 12, 25, 21, 29, 24, 35), .Dim = c(12L, 
    2L)), symobj = structure(list(Mver = structure(c(37, 24, 
    23, 22, 36, 35, 13, 12, 27, 28, 34, 5, 29, 30, 21, 32, 31, 
    20, 1, 14, 15, 16, 2, 3, 25, 26, 11, 10, 4, 33, 9, 8, 17, 
    6, 7, 18), .Dim = c(18L, 2L)), xver = c(19, 38), 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, 
        FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
        TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, 
        TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, 
        TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
        FALSE, 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", 
        "handle_A71", "handle_A72", "handle_A73", "handle_A74", 
        "handle_A75", "handle_A76", "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", "node71", "node72", "node73", "node74", "node75", 
        "node76"))), .Names = c("Mver", "xver", "Mhor", "xhor", 
    "Mrot", "exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", 
    "center_crossing", "indep"))), .Names = c("minsymvec", "overunderobj", 
"symobj"), class = "knot")