From 96ef5e51cd95ef074cf50c76f049564c48da3c90 Mon Sep 17 00:00:00 2001
From: Guillaume Horel <guillaume.horel@serenitascapital.com>
Date: Wed, 23 Sep 2015 15:32:01 -0400
Subject: double transpose!

---
 R/distrib.R | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'R')

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))
-- 
cgit v1.2.3-70-g09d2