`k4_1a` <-
structure(list(minsymvec = structure(c(handle_A7 = -405.161312345975,
handle_A8 = -176.146172026614, handle_A12 = 16.1708459400488,
handle_A15 = -124.609505654325, handle_A22 = -165.732706060282,
handle_A23 = -215.207981183417, handle_A24 = -15.93797521578,
handle_A30 = -16.1218052059129, handle_A31 = 93.2536857995959,
handle_A32 = 215.16485154743, handle_A39 = 9.97002513580951,
handle_A46 = 29.1728636161118, handle_A47 = 268.366718262311,
node6 = -406.391410734382, node7 = -336.59936356733, node8 = -102.733694069468,
node15 = -67.2729469563266, node22 = -190.419670195021, node23 = -154.299761927354,
node31 = 154.080475111984, node32 = 190.593713135909, node36 = -407.609774856487,
node39 = 67.3794999494336, node46 = 102.587238920107, node47 = 337.369750266579,
node48 = 407.553207909282), class = "minsymvec"), overunderobj = structure(c(2,
3, 4, 14, 23, 16, 11, 15, 17, 10, 21, 5, 8, 9, 20, 22), .Dim = c(8L,
2L)), symobj = list(Mver = structure(c(23, 8, 7, 22, 15, 6, 5,
14, 21, 4, 13, 1, 16, 17, 2, 9, 18, 19, 10, 3, 20, 11), .Dim = c(11L,
2L)), xver = c(12, 24), Mhor = structure(c(7, 22, 23, 8, 15,
16, 9, 2, 1, 17, 5, 14, 13, 4, 21, 20, 3, 10, 11, 19), .Dim = c(10L,
2L)), xhor = c(6, 18), Mrot = NULL, exact_h = NULL, exact_v = NULL,
mcdonalds = FALSE, celtic = FALSE, reefknot = TRUE, center_crossing = FALSE,
indep = c(handle_A1 = FALSE, handle_A2 = FALSE, handle_A3 = FALSE,
handle_A4 = FALSE, handle_A5 = FALSE, handle_A6 = FALSE,
handle_A7 = TRUE, handle_A8 = TRUE, handle_A9 = FALSE, handle_A10 = FALSE,
handle_A11 = FALSE, handle_A12 = TRUE, handle_A13 = FALSE,
handle_A14 = FALSE, handle_A15 = TRUE, handle_A16 = FALSE,
handle_A17 = FALSE, handle_A18 = FALSE, handle_A19 = FALSE,
handle_A20 = FALSE, handle_A21 = FALSE, handle_A22 = TRUE,
handle_A23 = TRUE, handle_A24 = TRUE, handle_A25 = FALSE,
handle_A26 = FALSE, handle_A27 = FALSE, handle_A28 = FALSE,
handle_A29 = FALSE, handle_A30 = TRUE, handle_A31 = TRUE,
handle_A32 = TRUE, handle_A33 = FALSE, handle_A34 = FALSE,
handle_A35 = FALSE, handle_A36 = FALSE, handle_A37 = FALSE,
handle_A38 = FALSE, handle_A39 = TRUE, handle_A40 = FALSE,
handle_A41 = FALSE, handle_A42 = FALSE, handle_A43 = FALSE,
handle_A44 = FALSE, handle_A45 = FALSE, handle_A46 = TRUE,
handle_A47 = TRUE, handle_A48 = FALSE, node1 = FALSE, node2 = FALSE,
node3 = FALSE, node4 = FALSE, node5 = FALSE, node6 = TRUE,
node7 = TRUE, node8 = TRUE, node9 = FALSE, node10 = FALSE,
node11 = FALSE, node12 = FALSE, node13 = FALSE, node14 = FALSE,
node15 = TRUE, node16 = FALSE, node17 = FALSE, node18 = FALSE,
node19 = FALSE, node20 = FALSE, node21 = FALSE, node22 = TRUE,
node23 = TRUE, node24 = FALSE, node25 = FALSE, node26 = FALSE,
node27 = FALSE, node28 = FALSE, node29 = FALSE, node30 = FALSE,
node31 = TRUE, node32 = TRUE, node33 = FALSE, node34 = FALSE,
node35 = FALSE, node36 = TRUE, node37 = FALSE, node38 = FALSE,
node39 = TRUE, node40 = FALSE, node41 = FALSE, node42 = FALSE,
node43 = FALSE, node44 = FALSE, node45 = FALSE, node46 = TRUE,
node47 = TRUE, node48 = TRUE))), class = "knot")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.