reproduce_analysis_sim: Simulate the Analysis for Longitudinal Illusory Truth Study
In truthiness: Illusory Truth Longitudinal Study

Description Usage Arguments Details Examples

Runs the main analysis for \insertCiteHenderson_Simons_Barr_2021;textualtruthiness on simulated data.

reproduce_analysis_sim(
  path,
  outfile = "analysis.html",
  recipe = FALSE,
  parallel = TRUE,
  infile = NULL
)

`path`	Path to a subdirectory containing the preprocessed anonymized (simulated) data files (see `simulate_resp_files`).
`outfile`	Path to the HTML output file.
`recipe`	Include instructions on how to reproduce the analysis.
`parallel`	Whether to fit models using a single CPU processing core (`FALSE`) or multiple cores (`TRUE`, the default).
`infile`	Path to the R Markdown script; `NULL` to use the built-in script.

Runs R Markdown script on the data in the provided subdirectory and renders the HTML report to outfile. The master R Markdown script can be accessed using:

rmarkdown::draft("analysis.Rmd", "illusory-truth-analysis-sim", "truthiness")

Note that this script can take *very* long to run, depending on the size of the simulated dataset, the number of processing cores, and the computational power of the hardware.

td_raw <- tempfile()  # temp dir for raw data
td_anon <- tempfile() # temp dir for preprocessed data

## simulate data and preprocess it

set.seed(62)
simulate_resp_files(32, path = td_raw, overwrite = TRUE)


## temporary files 
tf1 <- tempfile(fileext = ".html")
tf2 <- tempfile(fileext = ".html")

## run the built-in R Markdown preprocessing script
pp_report <- preprocess_simulated(path = td_raw, outpath = td_anon,
                                  report = tf1)

## run the built-in R Markdown analysis script
## this can take very long due to the CLMM fits
a_report <- reproduce_analysis_sim(path = td_anon,
                                   outfile = tf2,
                                   parallel = FALSE)

browseURL(a_report)

## clean up
file.remove(pp_report)
file.remove(a_report)


## clean up
unlink(td_raw, TRUE, TRUE)
unlink(td_anon, TRUE, TRUE)