Call option

#############Delta call option###################

library(derivmkts)

## Warning: le package 'derivmkts' a été compilé avec la version R 4.2.3

library(ggplot2)

## Warning: le package 'ggplot2' a été compilé avec la version R 4.2.3

s=seq(1,80, by=0.05)
veee=as.data.frame(s)
ff=function(x)  {
  greeks2(bscall, list(s=x, k=50, v=0.2, r=0.05, tt=0.37, d=0))['Delta',]
}
greek=apply(veee,1,ff)
gdata=data.frame(s,greek)
ggplot(gdata, aes(x=s, y=greek)) + geom_line() +
  xlab("prix de l'action") +
  ylab("Delta")