# myfile.R
#* @get /fv
function(rate=0,inflation=0, nper=1,pv=0,pmt=0,pmtinfladj=FALSE, pmtUltimo=TRUE){
unpie::fv(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nper),
pv = as.numeric(pv),
pmt = as.numeric(pmt),
pmtinfladj = as.logical(pmtinfladj),
pmtUltimo = as.logical(pmtUltimo)
)
}
#* @get /fv.single
function(rate = 0, inflation = 0, nper = 1, pv = 0){
unpie::fv.single(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nper),
pv = as.numeric(pv)
)
}
#* @get /fv.annuity
function(rate = 0, inflation = 0, nper = 1, pmt = 0,
pmtinfladj = FALSE, pmtUltimo = TRUE){
unpie::fv.annuity(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nper),
pmt = as.numeric(pmt),
pmtinfladj = as.logical(pmtinfladj),
pmtUltimo = as.logical(pmtUltimo)
)
}
#* @get /pmt
function(rate = 0, inflation = 0, nper = 1, fv=0){
unpie::pmt(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nper),
fv = as.numeric(fv)
)
}
# @get /pv
function(rate = 0, inflation = 0, nper = 1, fv = 0, pmt = 0, pmtinfladj = FALSE, pmtUltimo = TRUE){
unpie::pv(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nper),
fv = as.numeric(pv),
pmt = as.numeric(pmt),
pmtinfladj = as.logical(pmtinfladj),
pmtUltimo = as.logical(pmtUltimo)
)
}
#* @get /pv.annuity
function(rate = 0, inflation = 0, nper = 1, pmt = 0,pmtinfladj = FALSE, pmtUltimo = TRUE){
unpie::pv.annuity(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nper),
pmt = as.numeric(pmt),
pmtinfladj = as.logical(pmtinfladj),
pmtUltimo = as.logical(pmtUltimo)
)
}
#* @get /pv.single
function(rate = 0, inflation = 0, nper = 1, fv = 0){
unpie::pv.single(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nper),
fv = as.numeric(fv)
)
}
#######################################################################################
#######################################################################################
################################## WRAPPERS ###########################################
#######################################################################################
#######################################################################################
#* @get /wrapper.case5
function(rate=0,inflation=0,nper=1,pv=0)
{
pv_new = as.numeric(pv)/(1+as.numeric(inflation))
pmt_infladj=unpie::fv.single(
rate = as.numeric(inflation),
inflation = as.numeric(0),
nper = as.numeric(nper),
pv = as.numeric(pv_new))
fv=unpie::fv.annuity(
rate = as.numeric(rate),
inflation = as.numeric(0),
nper = as.numeric(nper),
pmt = as.ts(-pmt_infladj))
return(fv)
}
#* @get /wrapper.case7
function(rate=0,inflation=0,nper=1,pmt=0)
{
realRate = unpie::rate.real(
nominalRate = as.numeric(rate),
inflation = as.numeric(inflation)
)
pv = unpie::pv.annuity(
rate = as.numeric(realRate),
inflation = as.numeric(0),
nper = as.numeric(nper),
pmt = as.numeric(pmt),
pmtinfladj = as.logical(FALSE),
pmtUltimo = as.logical(FALSE))
return(pv)
}
#* @get /wrapper.case8
function(rate=0,inflation=0,nperSavings=1,nperWithdrawals=0,pmt=0)
{
fvTemp = unpie::fv(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nperSavings),
pv = as.numeric(0),
pmt = as.numeric(pmt),
pmtinfladj = as.logical(TRUE),
pmtUltimo = as.logical(TRUE))
fvTemp = fvTemp[length(fvTemp)]
pmtTemp = unpie::pmt(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nperWithdrawals),
fv = as.numeric(fvTemp))
fv=pmtTemp[1]
return(fv)
}
#* @get /wrapper.case9
function(rate=0,inflation=0,nperSavings=1,nperWithdrawals=0,pmt=0)
{
realRate = unpie::rate.real(
nominalRate = as.numeric(rate),
inflation = as.numeric(inflation)
)
print(realRate)
pvTemp = unpie::pv(
rate = as.numeric(realRate),
inflation = as.numeric(0),
nper = as.numeric(nperWithdrawals),
fv = as.numeric(0),
pmt = as.numeric(pmt),
pmtinfladj = as.logical(FALSE),
pmtUltimo = as.logical(TRUE))
print(pvTemp)
pvTemp = pvTemp[as.numeric(nperWithdrawals)]
print(nperWithdrawals)
print(pvTemp)
pv = unpie::pv.single(
rate = as.numeric(realRate),
inflation = as.numeric(0),
nper = as.numeric(nperSavings),
fv = as.numeric(-pvTemp))
pv = pv[as.numeric(nperSavings)]
pmt = unpie::pmt(
rate = as.numeric(rate),
inflation = as.numeric(inflation),
nper = as.numeric(nperSavings),
fv = as.numeric(pv))[1]
return(pmt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.