###################################################
### code chunk number 22: Cs_019_full-bfgs-ests
###################################################
c(coef(mod3.bfgs, type = "vector")[par.names], logLik = mod3.bfgs$logLik)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.