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)


etmc/hadron documentation built on Sept. 17, 2022, 7:33 p.m.