#' @examples
#' # Set up network of smoking cessation data
#' head(smoking)
#'
#' smk_net <- set_agd_arm(smoking,
#' study = studyn,
#' trt = trtc,
#' r = r,
#' n = n,
#' trt_ref = "No intervention")
#'
#' # Print details
#' smk_net
#'
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.