This is the start of my report.
All of the models featured have a model equation of
$$y = r sprintf("%.2fx%+.2f", params$a, params$intercept)
$$
and each model has r params$n
randomly generated observations.
j <- length(params$dataset())
We have created r j
modelr if (j > 1) {"s"}
.
out <- NULL for (i in names(params$dataset())) { out <- append(out, knitr::knit_child("report-body.Rmd")) }
r paste(out, collapse = '\n')
This is the end of my document. I hope you enjoyed it.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.