knitr::opts_chunk$set(echo = TRUE) devtools::load_all() library(profvis)
Preparation
samplecf_boot <- bootstrap.cf(samplecf, 1500) args <- list(samplecf_boot, 5, 10, fit.method = 'lm', model = 'single')
profile_old <- profvis({ fit_old <- do.call(old_matrixfit, args) })
profile_new <- profvis({ fit_new <- do.call(matrixfit, args) })
table(fit_old$niter)
table(fit_new$niter)
print(profile_old) print(profile_new)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.