diff options
| author | Guillaume Horel <guillaume.horel@serenitascapital.com> | 2014-08-25 15:57:42 -0400 |
|---|---|---|
| committer | Guillaume Horel <guillaume.horel@serenitascapital.com> | 2014-08-25 15:57:42 -0400 |
| commit | 3b827f4cefcf47f45f82fa05716afda11f8ea20c (patch) | |
| tree | beab7bee28ea22bf6bf6d9465398dc6d27823813 /R/tranche_functions.R | |
| parent | ab75289ea2856b37e15e98b7fd70860f9723696f (diff) | |
| download | lossdistrib-3b827f4cefcf47f45f82fa05716afda11f8ea20c.tar.gz | |
removed a line by mistake
Diffstat (limited to 'R/tranche_functions.R')
| -rw-r--r-- | R/tranche_functions.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/tranche_functions.R b/R/tranche_functions.R index 9592bd5..9f1d70b 100644 --- a/R/tranche_functions.R +++ b/R/tranche_functions.R @@ -1035,7 +1035,8 @@ MFlossdist.prepay.joint <- function(w, Z, rho, defaultprob, defaultprobmod, Q <- array(0, dim=c(ncol(defaultprob), Ngrid, Ngrid))
for(t in 1:ncol(defaultprob)){
S <- 1 - Rstoch[,,t]
- Q[t,,] <- lossdistC.prepay.jointZ(defaultprobmod[,t], prepayprobmod[,t], issuerweights)
+ Q[t,,] <- lossdistC.prepay.jointZ(defaultprobmod[,t], prepayprobmod[,t],
+ issuerweights, S, Ngrid, defaultflag, rho, Z, w)
}
return( Q )
}
|