R/cashflow.R

In gfunk0704/RcppQuantitativeFinance: What the Package Does in One 'Title Case' Line

setClass(
    Class          = "Cashflow",
    representation = representation(
        maturity = "numeric",
        value    = "numeric"
    )
)

Cashflow <- function(maturity, value) {
    new(Class    = "Cashflow",
        maturity = maturity,
        value    = value)
}

IsCashflow <- function(x) is(x, "Cashflow")

setMethod(
    f          = "Chart",
    signature  = "Cashflow",
    definition = function(object, ...) {
        pplot(x    = object@maturity,
              y    = object@value,
              type = "h",
              ...)
    }
)