if (FALSE) {
# compile everything from scratch
svol_lev <- buildModelFuncs("~/Desktop", "svol_leverage")
# then use your model's log-likelihood and filtering functions
svol_lev$svol_leverage_bswc_approx_LL(rnorm(100), c(.9, 0.0, 1.0, -.2))
svol_lev$svol_leverage_bswc_approx_filt(rnorm(100), c(.9, 0.0, 1.0, -.2))
}
Run the code above in your browser using DataLab