knotR: Knot Diagrams using Bezier Curves

`k9_8` <- 
structure(list(minsymvec = structure(c(392.266484850115, 369.223637837003, 
367.133118488998, 253.666301388279, 118.108314159315, -98.1095956781491, 
-232.097755213836, -53.0070370408037, 82.119829757878, 183.305656772139, 
110.819837212392, -49.2189785914387, -285.507723876443, -342.237008165317, 
-97.6987406327567, -42.0453578847822, -83.4198570345388, -10.7320232179824, 
132.018350243704, 380.765944829603, 466.973976394986, 352.390792620469, 
116.00559068609, 181.012903022758, -200.645336471989, -434.586473880456, 
-689.387764769049, -815.347442656293, -738.161766010097, -599.734874028623, 
-379.415407257114, -85.6266153962292, -128.843101329268, -363.239715147978, 
-401.686538973626, -377.593142117076, -130.544360494811, -135.92721114302, 
-434.157195915387, -626.412989794798, -760.788931610732, -750.359487524011, 
-672.679832715688, -540.806738826547, -423.389798206093, -306.200954226092, 
-87.6986281718915, 396.841401975741, 360.72189171548, 338.774174584517, 
192.947176393666, 26.2305490300619, -159.60597931646, -190.63805039759, 
90.973639253628, 187.806137860576, 58.0455570304238, -124.917549584814, 
-331.21363612563, -261.720103066179, -64.2527281400188, -55.8422457022841, 
-67.1438555360498, 46.1843371390005, 238.515553068789, 417.079744535573, 
436.430152742639, 269.612574251465, 112.180182450803, 260.797402195424, 
-299.609695870495, -545.421454506271, -739.051538972777, -798.114044570091, 
-663.005917374619, -528.445722237746, -245.699058758551, -73.3694969061379, 
-89.4076249225099, -220.85666090296, -381.465034294262, -394.290543839234, 
-300.876600190359, -105.983938334247, -236.447928998074, -511.984720467944, 
-675.004108965983, -768.05774927509, -712.153665198592, -635.522803947489, 
-488.983834824805, -387.704927810665, -226.776251807361, -104.802659837036
), .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_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", "node1", "node2", "node3", 
"node4", "node5", "node6", "node7", "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"), class = "minsymvec"), overunderobj = structure(c(24, 
22, 3, 19, 6, 13, 8, 11, 16, 10, 2, 20, 5, 17, 7, 15, 23, 12), .Dim = c(9L, 
2L)), symobj = structure(list(Mver = NULL, xver = 8, 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, FALSE, 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), .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", "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"))), .Names = c("Mver", "xver", "Mhor", "xhor", "Mrot", 
"exact_h", "exact_v", "mcdonalds", "celtic", "reefknot", "center_crossing", 
"indep"))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")