knotR: Knot Diagrams using Bezier Curves

`k9_18` <- 
structure(list(minsymvec = structure(c(218.904445241776, 349.534891958839, 
99.3525772480687, -172.745708814331, -356.171640603024, -411.59606460584, 
-139.586948567492, -108.072700979142, -152.445756244092, -155.081323980753, 
-97.0803216864959, 173.13261635327, 166.637186390125, 164.272542637318, 
191.164640127207, 416.893568362931, 312.854278737115, 137.624142703379, 
10.5039192027012, -54.6960374394267, -113.450327989133, -73.4057165870513, 
-159.120293235093, -152.01236790098, -10.9406682676334, 63.897611277402, 
-149.0316978301, -479.738577547865, -272.662985498505, -43.9885056846587, 
8.97544226363328, -37.5090350709388, -160.655319473039, -289.477708313741, 
-358.498396559839, -262.878367608873, -135.714521321317, -3.88602233964168, 
111.939525368503, 52.4762399504064, -103.837913006554, -169.096694160297, 
-612.277562875726, -471.1367715886, -308.312057597543, -150.845028309712, 
100.047877894834, 273.495728900372, 346.800301922961, -246.722195848037, 
-369.254273384881, -304.778601766463, -134.671926285387, -118.30231386167, 
-162.507519064673, -143.497308985497, -1.16745527867676, 176.884113289199, 
162.355094934747, 166.331059619559, 281.261953372309, 395.210381596246, 
254.479202211662, 105.623801344737, -86.5958364030143, -104.048177097232, 
-97.722739020571, -185.554567941889, -102.630539805671, -8.4160679600084, 
-210.856614828039, -488.558988281966, -416.220855587152, -229.223905591012, 
24.2701572834599, 1.8689468342217, -89.2083272687496, -209.459124160859, 
-304.137286339271, -358.838577696453, -219.994522014436, -83.6826754071865, 
4.98785765012585, 124.024103193643, -12.9707281230638, -129.81524613403, 
-233.551274694417, -613.707555197259, -567.973476439839, -413.941559148132, 
-230.513985366155, -58.7042798662641, 122.110145168127, 144.37360734808
), .Names = c("handle_A2", "handle_A3", "handle_A5", "handle_A6", 
"handle_A7", "handle_A8", "handle_A9", "handle_A10", "handle_A11", 
"handle_A12", "handle_A13", "handle_A15", "handle_A16", "handle_A17", 
"handle_A18", "handle_A19", "handle_A20", "handle_A21", "handle_A24", 
"handle_A25", "handle_A26", "handle_A27", "handle_A28", "handle_A29", 
"handle_A30", "handle_A32", "handle_A33", "handle_A36", "handle_A37", 
"handle_A38", "handle_A39", "handle_A40", "handle_A41", "handle_A42", 
"handle_A43", "handle_A45", "handle_A46", "handle_A47", "handle_A48", 
"handle_A49", "handle_A50", "handle_A51", "handle_A55", "handle_A56", 
"handle_A57", "handle_A58", "handle_A59", "node2", "node3", "node6", 
"node7", "node8", "node9", "node10", "node11", "node12", "node13", 
"node15", "node16", "node17", "node18", "node19", "node20", "node21", 
"node25", "node26", "node27", "node28", "node29", "node32", "node33", 
"node35", "node36", "node37", "node38", "node39", "node40", "node41", 
"node42", "node43", "node45", "node46", "node47", "node48", "node49", 
"node50", "node51", "node54", "node55", "node56", "node57", "node58", 
"node59", "node60"), class = "minsymvec"), overunderobj = structure(c(18, 
3, 23, 6, 29, 11, 27, 14, 21, 2, 20, 5, 26, 9, 28, 13, 22, 16
), .Dim = c(9L, 2L)), symobj = structure(list(Mver = structure(c(29, 
6, 25, 26, 12, 1, 4, 23, 22, 14), .Dim = c(5L, 2L)), xver = c(5, 
24, 30), 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, TRUE, 
    TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, 
    TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, 
    TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, 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")