R/extendr-wrappers.R

In fcl: A Financial Calculator

# Generated by extendr: Do not edit by hand

# nolint start

#
# This file was created with the following call:
#   .Call("wrap__make_fcl_wrappers", use_symbols = TRUE, package_name = "fcl")

#' @usage NULL
#' @useDynLib fcl, .registration = TRUE
NULL

RFixedBond <- new.env(parent = emptyenv())

RFixedBond$new <- function(value_date, mty_date, redem_value, cpn_rate, cpn_freq) .Call(wrap__RFixedBond__new, value_date, mty_date, redem_value, cpn_rate, cpn_freq)

RFixedBond$ytm_dur <- function(ref_date, clean_price) .Call(wrap__RFixedBond__ytm_dur, self, ref_date, clean_price)

RFixedBond$len <- function() .Call(wrap__RFixedBond__len, self)

RFixedBond$cf <- function(ref_date) .Call(wrap__RFixedBond__cf, self, ref_date)

#' @export
`$.RFixedBond` <- function (self, name) { func <- RFixedBond[[name]]; environment(func) <- environment(); func }

#' @export
`[[.RFixedBond` <- `$.RFixedBond`

RRtn <- new.env(parent = emptyenv())

RRtn$new <- function(dates, mvs, pls, ids) .Call(wrap__RRtn__new, dates, mvs, pls, ids)

RRtn$twrr_cr <- function(from, to, id) .Call(wrap__RRtn__twrr_cr, self, from, to, id)

RRtn$twrr_dr <- function(from, to, id) .Call(wrap__RRtn__twrr_dr, self, from, to, id)

RRtn$cum_pl <- function(from, to, id) .Call(wrap__RRtn__cum_pl, self, from, to, id)

RRtn$dietz_avc <- function(from, to, id) .Call(wrap__RRtn__dietz_avc, self, from, to, id)

RRtn$dietz <- function(from, to, id) .Call(wrap__RRtn__dietz, self, from, to, id)

RRtn$dates <- function(from, to) .Call(wrap__RRtn__dates, from, to)

#' @export
`$.RRtn` <- function (self, name) { func <- RRtn[[name]]; environment(func) <- environment(); func }

#' @export
`[[.RRtn` <- `$.RRtn`


# nolint end