Wrote some code that would calculate price of a European Call Option using Binomial Pricing model:
http://codepad.org/PfxkUzaz
http://codepad.org/PfxkUzaz
set.seed(12345) | |
gwn <- rnorm(100) | |
layout(matrix(1:4, ncol = 2, nrow = 2)) | |
plot.ts(gwn, xlab = "", ylab = "") | |
abline(h = 0, col = "red") | |
acf(gwn, main = "ACF") | |
qqnorm(gwn) | |
pacf(gwn, main = "PACF") |