knotR: Knot Diagrams using Bezier Curves

`k10_61` <-	
structure(list(minsymvec = structure(c(6.8180172218686, -187.069110869102, 
-318.618710777927, -298.181389866477, -132.205284454015, 0.0756778172637466, 
-184.891530946914, -257.229304636992, -156.227589686983, 9.74026035910958, 
-61.3261728152349, -133.500905468245, -301.60680837418, -329.70660038972, 
-220.459542046059, -37.998802225707, -40.2476925294671, -149.995591737518, 
-328.380221483735, -86.0497450689468, -25.6332597837308, 137.312943748704, 
301.206818338929, -437.053721689092, -319.597873476777, -125.183276184198, 
29.1006703283393, 98.053597279005, -66.2839741898543, -234.389619778725, 
-325.396330754193, -222.196615280671, -76.3803572502171, -209.836051509765, 
-237.917473336194, -76.9166702125447, -105.880156801583, -201.252233853743, 
-320.630188183176, -290.464493046196, -107.720561117278, -17.096731804685, 
-81.8487871877544, -206.482929322019, -343.028668176048, -309.957828764893, 
-89.1694467609841, 36.5955357765624, 194.941641240029, 283.81709449692, 
-437.408969912265, -392.475246626234, -225.970719901399, -74.2539738231605, 
68.8449163886992, 159.925055570924), .Names = c("handle_A4", 
"handle_A5", "handle_A6", "handle_A7", "handle_A8", "handle_A13", 
"handle_A14", "handle_A15", "handle_A16", "handle_A22", "handle_A23", 
"handle_A24", "handle_A25", "handle_A26", "handle_A27", "handle_A32", 
"handle_A33", "handle_A34", "handle_A35", "handle_A41", "handle_A42", 
"handle_A43", "handle_A44", "handle_A51", "handle_A52", "handle_A53", 
"handle_A54", "handle_A55", "node4", "node5", "node6", "node7", 
"node13", "node14", "node15", "node16", "node23", "node24", "node25", 
"node26", "node27", "node32", "node33", "node34", "node35", "node36", 
"node41", "node42", "node43", "node44", "node50", "node51", "node52", 
"node53", "node54", "node55"), class = "minsymvec"), overunderobj = structure(c(17, 
2, 20, 9, 24, 6, 27, 12, 4, 14, 28, 18, 11, 21, 8, 25, 15, 3, 
13, 5), .Dim = c(10L, 2L)), symobj = structure(list(Mver = structure(c(16, 
15, 27, 26, 25, 14, 4, 5, 13, 6, 24, 7, 23, 28, 1, 17, 18, 19, 
2, 12, 11, 3, 10, 20, 9, 21), .Dim = c(13L, 2L)), xver = c(8, 
22), 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, TRUE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, 
    TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE), .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")