knotR: Knot Diagrams using Bezier Curves

`k10_47` <-	
structure(list(minsymvec = structure(c(-117.854492948325, 259.5044958325, 
62.7142264132486, -140.804966090917, -141.227987742295, 91.4019068374346, 
189.266574091838, -4.72920804467326, -69.9859687585363, -126.644653729635, 
-292.637077226254, -327.580989632779, -217.707150949629, -133.954481373248, 
206.398520198773, 274.380987280545, 270.726292125599, 72.5024249913747, 
-106.131690066009, -300.123778644958, -248.509322515608, -245.191207769698, 
163.171127419218, -229.114244876029, -372.583714655803, -484.506864929841, 
-286.525999867043, -392.385167117576, -577.116883791429, -673.885520150347, 
-557.066623676088, -308.771240083145, -219.94034662432, -70.4867753905101, 
-19.842656625586, 24.027438771149, -22.1652757073406, -237.598788345324, 
-443.773446710014, -577.363088315808, -406.227862289492, -227.713244994356, 
0.445884184748366, -60.1013079901624, 172.7237312411, 2.69897350543239, 
-179.725276208037, -44.1587627639832, 119.189117097431, 132.552837393284, 
-38.8241948107328, -77.0342545336873, -200.638043684871, -315.719903159304, 
-282.949914098341, -141.077476097127, -66.8669675667134, 219.819667084281, 
284.799362455232, 226.405782717917, -183.027831278722, -291.623479595619, 
-226.920367307498, -217.741358522128, 145.659509747691, -283.851928961749, 
-407.747526328603, -422.42259461475, -299.883230359709, -447.397753670624, 
-639.66958762717, -632.790186164196, -511.90452262325, -262.588069241171, 
-173.242394951118, -35.4467334241276, 20.2963838860797, 59.1682336287885, 
-124.962185990964, -311.548298634578, -483.517784678346, -552.197665233207, 
-535.857036686419, -316.894291160245, -121.99980789741, 70.1809711350099
), .Names = c("handle_A1", "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_A21", "handle_A22", "handle_A23", "handle_A24", "handle_A25", 
"handle_A26", "handle_A27", "handle_A28", "handle_A29", "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_A49", "handle_A50", "handle_A51", 
"handle_A53", "handle_A54", "handle_A55", "handle_A56", "node1", 
"node6", "node7", "node8", "node9", "node10", "node11", "node12", 
"node13", "node14", "node15", "node16", "node17", "node18", "node21", 
"node22", "node23", "node25", "node26", "node27", "node28", "node29", 
"node34", "node35", "node36", "node37", "node38", "node39", "node40", 
"node41", "node42", "node43", "node44", "node45", "node46", "node49", 
"node50", "node51", "node52", "node53", "node54", "node55", "node56"
), class = "minsymvec"), overunderobj = structure(c(2, 21, 6, 
10, 8, 14, 24, 13, 27, 17, 19, 4, 22, 7, 14, 9, 11, 25, 15, 28
), .Dim = c(10L, 2L)), symobj = structure(list(Mver = structure(c(28, 
1, 18, 17, 16, 15, 20, 19, 2, 3, 4, 5), .Dim = c(6L, 2L)), xver = 24, 
    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, FALSE, FALSE, FALSE, FALSE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, 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", "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"))), .Names = c("Mver", 
"xver", "Mhor", "xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", 
"celtic", "reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")