Displaying 1 result from an estimated 1 matches for "makepremium".
2002 Jun 05
0
data manipulation, tapply
...aset will need to be referenced to achieve the full
10 years worth of data.
One way to go would be to prepend the history to the mc data 50000 times so
that the history would precede each scenario. Easy to code, but not too
efficient.
A single scenario version might look something like this:
MakePremium <- function(mcrent,hisrent,mcinf,hisinf,current) {
rentvect <- c(hisren,mcren)
lv <- length(rentvect)
rentvect <- rentvect[(lv-10):lv]
infvect <- c(hisinf,mcinf)
lv <- length(infvect)
infvect <- infvect[(lv-9):lv]
infvect <- c(1,infvect)
realrent_mean(rentvect/cumpro...