View source: R/slpi_strategy.R
| slpi | R Documentation | 
Implements SLPI strategy for commodity price risk management
slpi(q, tdate, f, tper, tcost = 0, int = TRUE)
q | 
 numeric value for quantity to be hedged, either positive (net buyer) or negative (net seller)  | 
tdate | 
 date vector with trading days  | 
f | 
 numeric futures price vector  | 
tper | 
 numeric target price markup/down to the price on the first trading day  | 
tcost | 
 numeric transaction costs pr unit  | 
int | 
 TRUE/FALSE integer restriction on tradable volume  | 
instance of the SLPI class
# SLPI for a buyer (seller), where stop loss is set 10% above (below) initial market price. set.seed(5) # GBM price process parameters mu <- 0.2 sigma <- 0.1 S0 <- 100 # time Y <- 2 N <- 500 delta <- Y/N t <- seq (0, 1, length = N + 1) # price process and date vector W <- c(0, cumsum ( sqrt(delta) * rnorm (N))) f_gbm <- S0 * exp(mu * t + sigma * W) tr_dates <- seq(Sys.Date(), Sys.Date()+500, by = "day") # implement stop-loss strategy for buyer slpi_b <- slpi(q = 10, tdate = tr_dates, f = f_gbm, tper = 0.1, tcost = 0, int = TRUE) # implement stop-loss strategy for seller slpi_s <- slpi(q = - 10, tdate = tr_dates, f = f_gbm, tper = - 0.1, tcost = 0, int = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.