## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## ----get_marginal_distributions-----------------------------------------------
#  library(RESIDE)
#  marginals <- get_marginal_distributions(IST)

## ----get_marginal_distributions_select----------------------------------------
#  library(RESIDE)
#  marginals <- get_marginal_distributions(
#    IST,
#    variables = c(
#      "SEX",
#      "AGE",
#      "ID14",
#      "RSBP",
#      "RATRIAL",
#      "SET14D",
#      "DSIDED"
#    )
#  )

## ----get_marginal_distributions_print-----------------------------------------
#  library(RESIDE)
#  marginals <- get_marginal_distributions(
#    IST,
#    print = TRUE
#  )

## ----marginal_distributions_print---------------------------------------------
#  library(RESIDE)
#  marginals <- get_marginal_distributions(IST)
#  print(marginals)

## ----export_marginal_distributions_folder_path--------------------------------
#  library(RESIDE)
#  marginals <- get_marginal_distributions(IST)
#  export_marginal_distributions(
#    marginals,
#    folder_path = "/Users/ryan/marginals"
#  )

## ----export_marginal_distributions_create_folder------------------------------
#  library(RESIDE)
#  marginals <- get_marginal_distributions(IST)
#  export_marginal_distributions(
#    marginals,
#    folder_path = "/Users/ryan/marginals",
#    create_folder = TRUE
#  )