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

## -----------------------------------------------------------------------------
# #' An S4 class to represent a bank account
# #'
# #' @slot balance A length-one numeric vector
# #' @export
# Account <- setClass("Account", slots = list(balance = "numeric"))