rm(list=ls())
S        <- c(100) 			  #spot price
puts     <- matrix( seq(100,45,-5) )      #available put strike prices
vol_put  <- matrix( seq(0.2,0.3,0.01) )   #implied vols for puts
calls    <- matrix( seq(100,140,5) )      #available call strike prices
vol_call <- matrix( seq(0.2,0.13,-0.01) ) #implied vols for calls
r  <- c( 0.05 )   #risk free rate
T  <- c( 90/365 ) #maturity of 3 months
SQ <- c( 100 )    #strike price which is nearest to forward price
equity_varswap <- VarSwap(S, puts, calls, vol_put, vol_call, r, T, SQ) 
Run the code above in your browser using DataLab