diff options
Diffstat (limited to 'R/tranche_functions.R')
| -rw-r--r-- | R/tranche_functions.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/tranche_functions.R b/R/tranche_functions.R index f22bdc68..1bb48487 100644 --- a/R/tranche_functions.R +++ b/R/tranche_functions.R @@ -260,7 +260,7 @@ lossdistCZ <- function(p, w, S, N, defaultflag=FALSE, rho, Z, wZ){ }
.C("lossdistrib_Z", as.double(p), as.integer(length(p)),
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)),
+ as.double(rho), as.double(Z), as.integer(length(Z)),
q = matrix(0, N, length(Z)))$q
}
|