knotR: Knot Diagrams using Bezier Curves

`k9_27` <- 
structure(list(minsymvec = structure(c(398.710461299774, 443.734258228104, 
257.631671593435, 29.8311698703808, -135.836863728556, -298.744678041777, 
-384.126295095496, -245.379664519127, -75.5594177468068, 273.251104253955, 
469.141653328108, 528.278784097792, 508.250177223058, 280.592254158734, 
261.042733418339, 253.028817460806, -47.2695970625435, -228.240422552814, 
-240.868331602671, -309.413749652727, -425.811631171403, -446.046104742368, 
-201.437056143557, -87.9846014772509, -5.57039203021027, 255.835306579301, 
92.9552435345164, -51.2210787906453, -283.26823085622, -360.808634020097, 
-365.528152050064, -316.244484169116, -121.135741956361, -12.5579183244601, 
-5.9320636938642, -57.2529743784835, -188.152643347126, -283.151815019298, 
-183.249408193262, -136.549405283212, -2.01389618336126, 267.37648017292, 
123.128624347954, -30.3172761282591, -144.432071028537, -200.583941188495, 
122.068105593091, 127.515940445165, 37.7334917890212, 147.731298073822, 
417.637185470592, 390.309074684311, 177.239675098521, -25.2034623108959, 
-182.825842531825, -341.337171319364, -337.041720974638, -172.929901567278, 
347.154365713531, 502.854754807713, 526.583166342425, 416.016914080404, 
275.330492160254, 253.802183788481, 242.156982214138, -123.631219109224, 
-239.805476811326, -258.092867220957, -317.849084071491, -483.523403140357, 
-357.015955366101, -155.516557462605, -58.5196331065278, 308.713572728922, 
51.1033723244026, -141.352049023845, -315.786535079051, -365.243608758895, 
-354.156259500954, -255.290213566698, -66.341623743708, 16.7324095195927, 
79.5712457923914, -24.8637946515459, -101.205840376497, -196.39395240308, 
-282.680717390601, -171.049343152903, -89.4971906860913, 58.3543484769026, 
226.421664656363, 62.4644463258998, -78.4991442917845, -148.598044409016, 
-92.0036515650363, 142.975107771509, 95.0745579304894, 23.4292056075743, 
9.12129906696789, 136.721960615603), .Names = c("handle_A1", 
"handle_A2", "handle_A3", "handle_A4", "handle_A5", "handle_A6", 
"handle_A7", "handle_A8", "handle_A9", "handle_A11", "handle_A12", 
"handle_A13", "handle_A14", "handle_A15", "handle_A16", "handle_A17", 
"handle_A19", "handle_A20", "handle_A21", "handle_A22", "handle_A23", 
"handle_A24", "handle_A25", "handle_A26", "handle_A27", "handle_A30", 
"handle_A31", "handle_A32", "handle_A33", "handle_A34", "handle_A35", 
"handle_A36", "handle_A37", "handle_A38", "handle_A41", "handle_A42", 
"handle_A43", "handle_A44", "handle_A45", "handle_A46", "handle_A47", 
"handle_A49", "handle_A50", "handle_A51", "handle_A52", "handle_A53", 
"handle_A54", "handle_A55", "handle_A56", "handle_A60", "node1", 
"node2", "node3", "node4", "node5", "node6", "node7", "node8", 
"node11", "node12", "node13", "node14", "node15", "node16", "node17", 
"node19", "node20", "node21", "node22", "node23", "node24", "node25", 
"node26", "node30", "node31", "node32", "node33", "node34", "node35", 
"node36", "node37", "node38", "node39", "node41", "node42", "node43", 
"node44", "node45", "node46", "node47", "node49", "node50", "node51", 
"node52", "node53", "node54", "node55", "node56", "node57", "node60"
), class = "minsymvec"), overunderobj = structure(c(12, 3, 23, 
8, 26, 10, 17, 30, 20, 2, 15, 7, 21, 9, 29, 11, 18, 25), .Dim = c(9L, 
2L)), symobj = structure(list(Mver = structure(c(19, 25, 8, 26, 
18, 29, 10, 28), .Dim = c(4L, 2L)), xver = c(9, 27), 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, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    FALSE, FALSE, 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")