From 4cddf630b141fd171ddd242d302b5be7afcd1572 Mon Sep 17 00:00:00 2001
From: hudde <hudde@rac27177.rheinahrcampus.de>
Date: Wed, 20 Mar 2024 10:48:09 +0100
Subject: [PATCH] refactoring

---
 R/Malliavin_Geometric_Asian_Greeks.R | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/R/Malliavin_Geometric_Asian_Greeks.R b/R/Malliavin_Geometric_Asian_Greeks.R
index b51d351..45dcf5f 100644
--- a/R/Malliavin_Geometric_Asian_Greeks.R
+++ b/R/Malliavin_Geometric_Asian_Greeks.R
@@ -185,14 +185,13 @@ Malliavin_Geometric_Asian_Greeks <- function(
 
     if ("delta" %in% greek) {
       result[i, "delta"] <-
-        2*exp(-(r-dividend_yield)*time_to_maturity)/(initial_price*volatility*time_to_maturity) *
-        mean(payoff(I_0_geom, exercise_price) * W_T)
+        (2/(initial_price*volatility*time_to_maturity)) * E_I_0_geom(W_T)
     } #delta
 
     if ("rho" %in% greek) {
       result[i, "rho"] <-
         (W_T/volatility - time_to_maturity) %>%
-        E()
+        E_I_0_geom()
     } #rho
 
     if ("theta" %in% greek) {