# data("br411", package = "bulletxtrctr")
#
# x3p <- br411
# x3p$header.info$sizeY <- 50
# x3p$surface.matrix <- x3p$surface.matrix[,50:99]
#
# small_x3p <- x3ptools::df_to_x3p(x3ptools::x3p_to_df(x3p))
# usethis::use_data(small_x3p)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.