diff options
Diffstat (limited to 'R/calibration.R')
| -rw-r--r-- | R/calibration.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/calibration.R b/R/calibration.R index 1f592889..fe531dcc 100644 --- a/R/calibration.R +++ b/R/calibration.R @@ -161,7 +161,8 @@ build.MFdist <- function(index, type="bottomup", tol=1e-2){ err <- 0 for(i in 1:n.credit){ for(j in 1:ncol(p)){ - err <- err + abs(crossprod(shockprob(p[i,j], rho[i], Z), program$weight) - index$defaultprob[i,j]) + err <- err + abs(crossprod(shockprob(p[i,j], rho[i], + index$Z), program$weight) - index$defaultprob[i,j]) } } |