R/zzz.R

In imanuelcostigan/fmbasics: Financial Market Building Blocks

.onLoad <- function (...) {
  # See: https://github.com/wch/s3ops
  registerS3method("+", "InterestRate", plus_ir)
  registerS3method("*", "InterestRate", times_ir)
  registerS3method("-", "InterestRate", minus_ir)
  registerS3method("/", "InterestRate", div_ir)
  registerS3method("*", "DiscountFactor", times_df)
  registerS3method("/", "DiscountFactor", div_df)
  registerS3method("+", "ZeroHazardRate", plus_zhr)
  registerS3method("-", "ZeroHazardRate", minus_zhr)
  registerS3method("*", "ZeroHazardRate", times_zhr)
  registerS3method("/", "ZeroHazardRate", div_zhr)
  registerS3method("*", "SurvivalProbabilities", times_sp)
  registerS3method("/", "SurvivalProbabilities", div_sp)
}