diff options
Diffstat (limited to 'R/distrib.R')
| -rw-r--r-- | R/distrib.R | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/R/distrib.R b/R/distrib.R index 2b19aa6..26b62cc 100644 --- a/R/distrib.R +++ b/R/distrib.R @@ -364,19 +364,6 @@ recovdistC <- function(dp, pp, w, S, N){ as.double(w), as.double(S), as.integer(N), q = double(N))$q } -lossdistC.jointZ <- function(dp, w, S, N, defaultflag = FALSE, rho, Z, wZ){ - ## N is the size of the grid - ## dp is of size n.credits - ## w is of size n.credits - ## S is of size n.credits by nZ - ## rho is a double - ## Z is a vector of length nZ - ## w is a vector if length wZ - r <- .C("lossdistrib_joint_Z", as.double(dp), as.integer(length(dp)), - as.double(w), as.double(S), as.integer(N), as.logical(defaultflag), as.double(rho), - as.double(Z), as.double(wZ), as.integer(length(Z)), q = matrix(0, N, N))$q -} - lossdistC.prepay.joint <- function(dp, pp, w, S, N, defaultflag=FALSE){ ## C version of lossdist.prepay.joint r <- .C("lossdistrib_joint", as.double(dp), as.double(pp), as.integer(length(dp)), |