Invia SMS: Value at Risk and Modeling Stock Price Using Monte Carlo Simulation in R