knotR: Knot Diagrams using Bezier Curves

`T20` <-
structure(list(minsymvec = structure(c(72.5943991583697, 36.3318195951007, 
135.543833829128, 213.393938805764, 205.865330610944, 0.794099179831234, 
99.7066928546073, 224.757828764498, 266.962021348104, 361.72273722868, 
477.911106962155, 672.12825378153, 549.198191992879, 427.330953614856, 
182.884150275511, 104.423155163988, 101.757325324118, 224.942017058419, 
299.449773134207, 347.875508961655, 485.678124537302, 650.002672163148, 
740.912493894959, 746.410967576648, 558.896833629542, 418.659094729832, 
186.252805368978, 62.5595718439438, -155.999257387214, -266.467936868398, 
-235.736547984954, -52.9084507270266, -223.535097261731, -366.286839954968, 
-538.551114303129, -437.649575098949, -252.300038112206, -202.818595695954, 
-342.465441191804, -332.834372895842, -331.945065898844, -379.324674256908, 
-295.31316705159, -362.70340831126, -514.33184821577, -711.639268904038, 
-693.696942262371, -577.75462591273, -490.80823358342, -445.251919568847, 
-415.598234829506, -330.416005548476, -337.933436859121, -380.958539837962, 
-461.619326425345, -593.302264064042, -684.491797961257, -591.095149078078, 
-706.405081587857, -706.357497523258, -514.907026475596, -300.008172649546, 
71.9815322672818, 45.4682417455403, 180.822240544474, 209.847654335426, 
145.155870376565, 9.88001883075596, 137.003120503439, 242.493665267522, 
308.298859810395, 424.410368673571, 550.441969565631, 581.61971289289, 
500.123764217456, 323.578057699162, 147.38218070967, 102.243888873395, 
149.026761288703, 253.813066202221, 322.947797615956, 406.57935848995, 
556.279247419931, 687.036574659509, 746.362288065943, 685.287229473959, 
507.974555031278, 315.764307998823, 137.238435242069, -203.676476066331, 
-264.849129377293, -176.534706214172, -274.530502909719, -440.648063436263, 
-509.002481891721, -394.513715927344, -197.926946441825, -272.763108633922, 
-341.136229030802, -332.510233079687, -342.569459139706, -365.596750047071, 
-282.778688195526, -474.052340964012, -574.051827141782, -730.424122627829, 
-650.292572486055, -559.257371990392, -463.189110978841, -435.595633637966, 
-392.114301040389, -308.847326432362, -362.210917528976, -405.620386652803, 
-494.740905851574, -638.146625624168, -668.964423488198, -617.183616254513, 
-728.099755699653, -752.821829860152, -638.91444749242, -453.888204556102, 
-241.520225625651, -161.485980554194), .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_A61", "handle_A62", 
"handle_A63", "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", 
"node29", "node30", "node31", "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", "node61", "node62", "node63", "node64"
), class = "minsymvec"), overunderobj = structure(c(1, 7, 3, 
5, 18, 20, 11, 22, 26, 15, 6, 2, 17, 8, 4, 10, 21, 12, 14, 27
), .Dim = c(10L, 2L)), symobj = structure(list(Mver = NULL, xver = c(32, 
28), 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, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, 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, FALSE, 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), .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", "handle_A61", "handle_A62", "handle_A63", 
    "handle_A64", "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", 
    "node61", "node62", "node63", "node64"))), .Names = c("Mver", 
"xver", "Mhor", "xhor", "Mrot", "exact_h", "exact_v", "mcdonalds", 
"celtic", "reefknot", "center_crossing", "indep"))), .Names = c("minsymvec", 
"overunderobj", "symobj"), class = "knot")