powered by
Profit(o = OptPos(), S = o$S0)
Opt*
[length(S), 2]
Profit(o=Opt()) graphics::plot( print( Profit(OptPos(Prem=2.5), S=40:60)), type='l'); grid()
Run the code above in your browser using DataLab