knotR: Knot Diagrams using Bezier Curves

`k8_14` <- 
structure(list(minsymvec = structure(c(-337.866780107504, -153.017329156474, 
-78.9158707967203, 42.7512656746075, 214.663043361106, 422.892068664044, 
431.200516122703, 394.645795234549, 233.15872669704, 64.6604604293914, 
-85.1460072127575, -180.664321521953, 34.9659423315069, 110.653188411856, 
253.541416067958, 392.432535141951, 364.445016790403, 331.378357108272, 
194.558609177312, 37.6292988726673, -133.649680087393, -253.757893209997, 
-18.8383365531777, 80.193958387641, 215.401505147812, 196.692365174364, 
64.9241985082929, -171.953418115596, -321.466743403516, -442.559725212397, 
-285.493598458894, -278.280880996289, -342.421862463373, -428.291972971494, 
-545.370574751013, -690.060301309972, -744.682610226871, -737.662264497706, 
-625.425739542888, -627.144435126251, -768.328146086349, -899.335814365249, 
-886.970683517988, -744.189135893459, -477.10770108438, -344.335007936695, 
-297.683392898364, -254.164391292108, -352.622982295324, -376.640092313669, 
-295.156924145504, -77.2166275206925, -292.077041462972, -458.027496904934, 
-686.135378471813, -735.957323397047, -549.083066149622, -284.737177550809, 
-135.113345187401, -25.5441098957332, 115.09742305624, 296.024722981648, 
438.759317629263, 425.563328896366, 338.315258556019, 168.193450393619, 
11.9268055180933, -114.893411903333, -118.938758572104, 46.2201613270904, 
169.292361582087, 315.111474864658, 389.546460977754, 358.73921991757, 
291.772478090122, 120.560732389612, -25.6515881023694, -152.707233912137, 
-205.35117297198, 143.031577255497, 213.244676274436, 147.596051129993, 
-5.56526525198009, -240.882699150559, -323.619309513102, -369.684291045472, 
-283.339395442671, -298.348160457335, -384.441406936951, -469.787279228866, 
-598.788783311991, -698.739743262336, -753.949562214825, -696.753399900261, 
-617.54431558079, -658.284614783842, -841.224928174229, -897.555753222991, 
-840.612310105747, -632.394006686653, -427.12269591816, -336.107331766275, 
-278.964047523017, -289.153185992822, -374.508945195773, -365.187689721289, 
-185.116166426739, -74.8645068243403, -138.25677930495, -344.927172732492, 
-548.782268232238, -714.356460053524, -678.485879233569, -535.075096801555
), .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_A53", "handle_A54", "handle_A55", 
"handle_A56", "handle_A57", "handle_A58", "node1", "node2", "node3", 
"node4", "node5", "node6", "node7", "node8", "node9", "node10", 
"node11", "node12", "node13", "node14", "node15", "node16", "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", 
"node47", "node48", "node49", "node50", "node51", "node52", "node53", 
"node54", "node55", "node56", "node57", "node58"), class = "minsymvec"), 
    overunderobj = structure(c(19, 26, 10, 28, 22, 4, 6, 15, 
    25, 5, 27, 12, 2, 20, 16, 9), .Dim = c(8L, 2L)), symobj = structure(list(
        Mver = NULL, xver = 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, 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, 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), .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", 
        "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"))), .Names = c("Mver", 
    "xver", "Mhor", "xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", 
    "celtic", "reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")