data/infinity.R

In RobinHankin/knotR: Knot Diagrams using Bezier Curves

`k_infinity` <-
  structure(list(minsymvec = structure(c(-50.845618408457, 143.896326422274, 
233.291598965913, -377.883692606176, -966.711403151395, 283.215587361682
), .Names = c("handle_A4", "handle_A10", "handle_A11", "node4", 
"node5", "node10"), class = "minsymvec"), overunderobj = structure(c(1, 
4), .Dim = 1:2), symobj = structure(list(Mver = structure(c(4, 
5, 6, 1, 2, 3), .Dim = c(3L, 2L)), xver = NULL, Mhor = structure(c(4, 
1, 6, 3), .Dim = c(2L, 2L)), xhor = c(2, 5), Mrot = NULL, mcdonalds = TRUE, 
    celtic = TRUE, indep = structure(c(FALSE, FALSE, FALSE, TRUE, 
    FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, 
    FALSE, FALSE, TRUE, TRUE, 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", "handle_A11", "handle_A12", "node1", 
    "node2", "node3", "node4", "node5", "node6", "node7", "node8", 
    "node9", "node10", "node11", "node12"))), .Names = c("Mver", 
"xver", "Mhor", "xhor", "Mrot", "mcdonalds", "celtic", "indep"
))), .Names = c("minsymvec", "overunderobj", "symobj"), class = "knot")