From 775a9149f29447e8e49e9694f0d309043b04a80e Mon Sep 17 00:00:00 2001
From: Guillaume Horel <guillaume.horel@serenitascapital.com>
Date: Tue, 15 Jul 2014 13:04:21 -0400
Subject: modify Ngrid inside BCtranche.delta

---
 R/tranche_functions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/tranche_functions.R b/R/tranche_functions.R
index 8d7958d..72e4936 100644
--- a/R/tranche_functions.R
+++ b/R/tranche_functions.R
@@ -717,7 +717,7 @@ BCtranche.delta <- function(index, tradedate = Sys.Date()){
     ## if K2==1, then computes the delta using the lower attachment only
     ## this makes sense for bottom-up skews
     eps <- 1e-4
-
+    index$Ngrid <- 301
     ## we build a lit of 4 indices with various shocks
     index.list <- lapply(c(0, eps, -eps, 2*eps), function(x){
         if(x==0){
-- 
cgit v1.2.3-70-g09d2