knotR: Knot Diagrams using Bezier Curves

`k9_36` <- 
structure(list(minsymvec = structure(c(68.2173246982825, 293.024893067463, 
322.54795740353, 260.712871093891, 20.3185252610869, -136.54786793567, 
-197.968520179162, -227.621205340431, -18.179873265493, 53.3688836171923, 
172.214109927208, 278.782667611828, 242.637743912978, 187.339460825367, 
28.6453690396909, -267.391680062087, -404.869661075079, -256.610111909904, 
-123.666740358756, -54.0461025144965, 36.3700357485393, 74.780347336191, 
171.811802765838, 299.236637129178, 210.879945388069, 45.6194686126711, 
-172.755806597362, -247.093090602586, -332.098625130935, -189.799875540825, 
38.8451246054455, -151.005599748616, -276.618993947954, -385.848360061094, 
-558.788894802389, -555.276279788265, -516.02647972034, -349.719949492326, 
-188.464836316351, -253.410083061569, -414.854870512219, -533.379500792902, 
-583.725179724778, -522.020066656266, -356.143975711526, -135.851645544274, 
1.89791209585832, -97.0564706105102, -229.828440244616, -286.555696668382, 
-293.171434445125, -259.12414447281, -87.2033608526465, 78.3845601925898, 
29.4173439490985, -99.6645783280559, -91.6492248712943, -1.79118674726471, 
173.966949951565, 167.902306967572, 309.008440813171, 305.929078635264, 
149.82710171088, -37.5923075524877, -149.439460737625, -215.364291981271, 
-155.399884033838, 93.7509443130526, 216.30856303212, 274.058673476079, 
234.764270199607, 119.829893991456, -89.1646854673637, -329.115713972495, 
-368.18107689757, -200.692664285348, -98.5471944489804, -23.4253785934888, 
43.7777466124145, 104.182404995659, 220.637974713056, 283.745451178823, 
146.239043430976, -42.4043845724951, -196.94194499186, -270.627333183727, 
-303.128380458878, -82.6947073747731, -43.751500615979, -193.303742532224, 
-315.056154037175, -460.106658788459, -568.262048224334, -547.54084020622, 
-467.53899828348, -269.745464740933, -186.686512299488, -205.709445131748, 
-314.318253310083, -460.884365764496, -540.721426843231, -573.79167374286, 
-443.527482798822, -287.346477410368, -73.851212956998, -23.6841490803798, 
-145.872713421748, -255.371245790172, -287.919901778182, -285.706067987272, 
-198.878981959981, -24.728024325779, 73.6383907056562, -32.7590317104759, 
-99.1748115971177, -72.3053570470517, 65.7859253980912, 142.720745762666
), .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_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", 
"node1", "node2", "node3", "node4", "node5", "node6", "node7", 
"node8", "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"), class = "minsymvec"), overunderobj = structure(c(1, 
24, 4, 15, 8, 20, 11, 18, 27, 26, 2, 12, 5, 16, 9, 23, 29, 19
), .Dim = c(9L, 2L)), symobj = structure(list(Mver = NULL, xver = 9, 
    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, 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, 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, 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", 
    "handle_A59", "handle_A60", "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"))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", 
"exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")