diff options
| -rw-r--r-- | R/distrib.R | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/R/distrib.R b/R/distrib.R index d941bd2..47a93a8 100644 --- a/R/distrib.R +++ b/R/distrib.R @@ -567,6 +567,9 @@ BClossdistC <- function(defaultprob, issuerweights, recov, rho, Z, w, N=length(issuerweights)+1, defaultflag=FALSE){
stopifnot(length(Z)==length(w),
nrow(defaultprob)==length(issuerweights))
+ if(is.null(dim(defaultprob))){
+ dim(defaultprob) <- c(length(defaultprob),1)
+ }
L <- matrix(0, N, ncol(defaultprob))
R <- matrix(0, N, ncol(defaultprob))
rho <- rep(rho, length(issuerweights))
|