knotR: Knot Diagrams using Bezier Curves

`k8_13` <- 
structure(list(minsymvec = structure(c(145.680929035165, 75.1487865288835, 
-155.619105848522, -343.695340980305, -358.778958852221, -262.31221345956, 
19.0711403501034, 161.31631462748, 201.721529083053, 105.265271255347, 
-177.643424792334, -344.27704085942, -357.970517931996, -320.657952812287, 
-95.7257491704379, 108.665151090941, 139.035397445346, 142.369878301804, 
106.530352470251, -51.864327970152, -200.118319813127, -265.869354501382, 
-258.159184497573, -153.219031509659, -151.574066548152, -106.542455910086, 
131.292397041477, -74.2500029308857, -210.505734818287, -280.483508792916, 
-420.474993006028, -570.890257433595, -694.304669118542, -859.198605427775, 
-798.491847822247, -730.582236046684, -572.47198367473, -475.831579974335, 
-343.69315650517, -176.431712139771, -88.4641984240836, -45.731936188499, 
-252.711730971264, -378.07113496909, -436.3815019511, -580.13023824224, 
-881.896059051009, -894.906245896513, -855.833416876997, -683.140329353564, 
-462.543309979974, -280.025717385438, -21.2901338860384, 130.141154752841, 
-22.0587341910199, -232.785086118104, -354.70687081562, -329.235524355404, 
-146.180327654968, 77.0536726587733, 168.254190519975, 179.528585278616, 
-9.07651067198338, -240.095786948771, -359.404910793815, -351.948596371398, 
-250.689907034205, -10.3890992988026, 122.596355574327, 139.665661676934, 
133.082217284284, 45.9105569903654, -105.825232700568, -210.815991689852, 
-276.380393728808, -217.494795996914, -144.64129616105, -152.491402767848, 
133.81784712914, -117.392293886604, -249.796495802974, -322.17791123084, 
-469.796111331432, -620.122618354704, -766.888217043442, -848.311723665262, 
-787.385419750354, -669.370977485545, -530.669605007054, -434.86395946792, 
-282.596653493552, -161.526706114101, -59.1643956323443, -111.82333324483, 
-296.36887864056, -388.680453592055, -486.165470346354, -710.197022092773, 
-899.074413772395, -888.811886141205, -791.873944162449, -596.874952446181, 
-381.158291861202, -169.873090757587, 65.5303506120673, -30.1675874760339
), .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_A54", "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", "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"), class = "minsymvec"), overunderobj = structure(c(26, 
16, 10, 20, 6, 24, 3, 12, 15, 2, 19, 7, 23, 11, 25, 4), .Dim = c(8L, 
2L)), symobj = structure(list(Mver = NULL, xver = 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(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, 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, 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), .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", "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"
    ))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", "exact_h", 
"exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")