data("us_macrodata")
y <- matrix(us_macrodata[, "r"])
# Initialise log-volatilites
h_init <- matrix(log(var(y)))
h <- matrix(rep(h_init, length(y)))
# Obtain draw
stoch_vol(y - mean(y), h, matrix(.05), h_init, matrix(0.0001))
Run the code above in your browser using DataLab