data/unknot.R

In RobinHankin/knotR: Knot Diagrams using Bezier Curves

`unknot` <-
structure(list(minsymvec = structure(c(-344.967988968564, 796.524388700273
), .Names = c("handle_A3", "node8"), class = "minsymvec"), overunderobj = NULL, 
    symobj = structure(list(Mver = structure(c(2, 1, 4, 5), .Dim = c(2L, 
    2L)), xver = 3, Mhor = NULL, xhor = NULL, Mrot = structure(c(3, 
    4, 5, 1, 2), .Dim = c(1L, 5L)), mcdonalds = FALSE, celtic = FALSE, 
        indep = structure(c(FALSE, FALSE, TRUE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
        FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE), .Names = c("handle_A1", 
        "handle_A2", "handle_A3", "handle_A4", "handle_A5", "handle_A6", 
        "handle_A7", "handle_A8", "handle_A9", "handle_A10", 
        "node1", "node2", "node3", "node4", "node5", "node6", 
        "node7", "node8", "node9", "node10"))), .Names = c("Mver", 
    "xver", "Mhor", "xhor", "Mrot", "mcdonalds", "celtic", "indep"
    ))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")