diff options
| author | Guillaume Horel <guillaume.horel@gmail.com> | 2017-03-31 18:01:43 -0400 |
|---|---|---|
| committer | Guillaume Horel <guillaume.horel@gmail.com> | 2017-03-31 18:02:04 -0400 |
| commit | 34a4f0125e1e56390e025381f10f28a2d3b7ea4a (patch) | |
| tree | 28ec33079fa025d9969cc486ae3ffedbe31e4df7 /R | |
| parent | f0653d4b0e7294a5665465951410c51c2daf93ca (diff) | |
| download | lossdistrib-34a4f0125e1e56390e025381f10f28a2d3b7ea4a.tar.gz | |
try to fix lossdistrib_joint_Z
Diffstat (limited to '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)), |