#' Histogram of weights
#'
#' @export
#' @param w vector of weights.
#' @param title character string. The title for the plot.
#'
weights_hist <- function(w, title = NULL) {
hist(w, xlab = "weights", ylab = NULL, main = title, col = "skyblue", yaxt = "n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.