Re-doing all the qmd files

.gitignore

@@ -4,3 +4,10 @@
 .Rproj.user/
 
 temp.R
+
+*_cache/*
+*_files/*
+
+output.log
+
+*.rmarkdown

Dockerfile

@@ -1,4 +1,4 @@
-FROM rocker/verse:4.2.1
+FROM rocker/tidyverse:4.2.1
 
 RUN apt-get update \
   && apt-get upgrade -y \
@@ -70,8 +70,8 @@ COPY build/docker_install_sys_rpkgs.R /tmp
 RUN Rscript /tmp/docker_install_sys_rpkgs.R
 
 COPY build/test_report.qmd /tmp
-RUN quarto render test_report.qmd --to pdf \
-  && rm -fv /tmp/test_report.pdf
+RUN quarto render test_report.qmd --to html \
+  && rm -fv /tmp/test_report.html
 
 
 RUN git clone https://github.com/lindenb/makefile2graph.git \

Makefile

@@ -30,7 +30,8 @@ all-html: $(HTML_FILES)
 
 .qmd.html:
 	echo "TIMESTAMP:" `date` "- Rendering script $<"  >> output.log 2>&1
-	Rscript -e 'quarto::quarto_render("$<")'          >> output.log 2>&1
+	quarto render $< --to html                        >> output.log 2>&1
+#	Rscript -e 'quarto::quarto_render("$<")'          >> output.log 2>&1
 	echo "TIMESTAMP:" `date` "- Finished $*.html"     >> output.log 2>&1
 
 
@@ -43,6 +44,8 @@ full_deps.dot:
 depgraph: full_deps.png
 
 
+initial_pnbd_models.html: generate_transaction_datasets.html
+construct_hierarchical_pnbd_models.html: initial_pnbd_models.html
 
 
 mrproper: clean-cache clean-data clean-html clean-models

construct_hierarchical_pnbd_models.qmd

@@ -0,0 +1,92 @@
+---
+title: "Construct Hierarchical P/NBD Models"
+author: "Mick Cooney <[email protected]>"
+date: "Last updated: `r format(Sys.time(), '%B %d, %Y')`"
+editor: source
+execute:
+  message: false
+  warning: false
+  error: false
+format:
+  html:
+    light: superhero
+    dark: darkly
+    anchor-sections: true
+    embed-resources: true
+    number-sections: true
+    smooth-scroll: true
+    toc: true
+    toc-depth: 3
+    toc-location: left
+    code-fold: true
+    code-summary: "Show code"
+---
+
+
+```{r import_libraries}
+#| echo: FALSE
+#| message: FALSE
+
+library(conflicted)
+library(tidyverse)
+library(scales)
+library(cowplot)
+library(directlabels)
+library(magrittr)
+library(rlang)
+library(fs)
+library(purrr)
+library(furrr)
+library(glue)
+library(cmdstanr)
+library(brms)
+library(posterior)
+library(bayesplot)
+library(tidybayes)
+
+
+source("lib_utils.R")
+source("lib_btyd.R")
+
+
+conflict_lst <- resolve_conflicts(
+  c("magrittr", "rlang", "dplyr", "readr", "purrr", "ggplot2", "MASS",
+    "fitdistrplus")
+  )
+
+
+knitr::opts_chunk$set(
+  tidy       = FALSE,
+  cache      = FALSE,
+  warning    = FALSE,
+  message    = FALSE,
+  fig.height =     8,
+  fig.width  =    11
+  )
+
+options(
+  width = 80L,
+  warn  = 1,
+  mc.cores = parallel::detectCores()
+  )
+
+theme_set(theme_cowplot())
+
+set.seed(42)
+
+plan(multisession)
+```
+
+
+
+
+# R Environment
+
+```{r show_session_info}
+#| echo: TRUE
+#| message: TRUE
+
+options(width = 120L)
+sessioninfo::session_info()
+options(width = 80L)
+```

generate_transaction_datasets.html

@@ -2659,7 +2659,7 @@ <h1 data-number="1"><span class="header-section-number">1</span> Generate Short
 <span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a>    <span class="at">last_date   =</span> <span class="fu">as.Date</span>(<span class="st">&quot;2019-12-31&quot;</span>)</span>
 <span id="cb2-5"><a href="#cb2-5" aria-hidden="true" tabindex="-1"></a>    )</span>
 <span id="cb2-6"><a href="#cb2-6" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb2-7"><a href="#cb2-7" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_cohort_tbl <span class="sc">%&gt;%</span> <span class="fu">glimpse</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<span id="cb2-7"><a href="#cb2-7" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_cohort_tbl <span class="sc">|&gt;</span> <span class="fu">glimpse</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 </details>
 <div class="cell-output cell-output-stdout">
 <pre><code>Rows: 50,000
@@ -2686,18 +2686,18 @@ <h1 data-number="1"><span class="header-section-number">1</span> Generate Short
 <span id="cb4-10"><a href="#cb4-10" aria-hidden="true" tabindex="-1"></a>  <span class="at">amt_custcv  =</span>   <span class="fl">1.00</span></span>
 <span id="cb4-11"><a href="#cb4-11" aria-hidden="true" tabindex="-1"></a>  )</span>
 <span id="cb4-12"><a href="#cb4-12" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb4-13"><a href="#cb4-13" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_simparams_tbl <span class="ot">&lt;-</span> synthdata_shortframe_cohort_tbl <span class="sc">%&gt;%</span></span>
+<span id="cb4-13"><a href="#cb4-13" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_simparams_tbl <span class="ot">&lt;-</span> synthdata_shortframe_cohort_tbl <span class="sc">|&gt;</span></span>
 <span id="cb4-14"><a href="#cb4-14" aria-hidden="true" tabindex="-1"></a>  <span class="fu">generate_pnbd_customer_simulation_params</span>(</span>
 <span id="cb4-15"><a href="#cb4-15" aria-hidden="true" tabindex="-1"></a>    <span class="at">params_lst     =</span> pnbd_params_lst</span>
 <span id="cb4-16"><a href="#cb4-16" aria-hidden="true" tabindex="-1"></a>    )</span>
 <span id="cb4-17"><a href="#cb4-17" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb4-18"><a href="#cb4-18" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_transactions_tbl <span class="ot">&lt;-</span> synthdata_shortframe_simparams_tbl <span class="sc">%&gt;%</span></span>
+<span id="cb4-18"><a href="#cb4-18" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_transactions_tbl <span class="ot">&lt;-</span> synthdata_shortframe_simparams_tbl <span class="sc">|&gt;</span></span>
 <span id="cb4-19"><a href="#cb4-19" aria-hidden="true" tabindex="-1"></a>  <span class="fu">generate_pnbd_customer_transaction_data</span>(</span>
 <span id="cb4-20"><a href="#cb4-20" aria-hidden="true" tabindex="-1"></a>    <span class="at">final_tnx_date =</span> <span class="fu">as.Date</span>(<span class="st">&quot;2020-01-01&quot;</span>)</span>
-<span id="cb4-21"><a href="#cb4-21" aria-hidden="true" tabindex="-1"></a>    ) <span class="sc">%&gt;%</span></span>
+<span id="cb4-21"><a href="#cb4-21" aria-hidden="true" tabindex="-1"></a>    ) <span class="sc">|&gt;</span></span>
 <span id="cb4-22"><a href="#cb4-22" aria-hidden="true" tabindex="-1"></a>  <span class="fu">generate_transaction_metadata</span>()</span>
 <span id="cb4-23"><a href="#cb4-23" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb4-24"><a href="#cb4-24" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_transactions_tbl <span class="sc">%&gt;%</span> <span class="fu">glimpse</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<span id="cb4-24"><a href="#cb4-24" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_transactions_tbl <span class="sc">|&gt;</span> <span class="fu">glimpse</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 </details>
 <div class="cell-output cell-output-stdout">
 <pre><code>Rows: 299,546
@@ -2714,9 +2714,9 @@ <h2 data-number="1.1" class="anchored" data-anchor-id="write-data-to-disk"><span
 <div class="cell">
 <details>
 <summary>Show code</summary>
-<div class="sourceCode cell-code" id="cb6"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb6-1"><a href="#cb6-1" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_cohort_tbl       <span class="sc">%&gt;%</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_shortframe_cohort_tbl.rds&quot;</span>)</span>
-<span id="cb6-2"><a href="#cb6-2" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_simparams_tbl    <span class="sc">%&gt;%</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_shortframe_simparams_tbl.rds&quot;</span>)</span>
-<span id="cb6-3"><a href="#cb6-3" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_transactions_tbl <span class="sc">%&gt;%</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_shortframe_transactions_tbl.rds&quot;</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<div class="sourceCode cell-code" id="cb6"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb6-1"><a href="#cb6-1" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_cohort_tbl       <span class="sc">|&gt;</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_shortframe_cohort_tbl.rds&quot;</span>)</span>
+<span id="cb6-2"><a href="#cb6-2" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_simparams_tbl    <span class="sc">|&gt;</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_shortframe_simparams_tbl.rds&quot;</span>)</span>
+<span id="cb6-3"><a href="#cb6-3" aria-hidden="true" tabindex="-1"></a>synthdata_shortframe_transactions_tbl <span class="sc">|&gt;</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_shortframe_transactions_tbl.rds&quot;</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 </details>
 </div>
 </section>
@@ -2733,7 +2733,7 @@ <h1 data-number="2"><span class="header-section-number">2</span> Generate Long T
 <span id="cb7-4"><a href="#cb7-4" aria-hidden="true" tabindex="-1"></a>    <span class="at">last_date   =</span> <span class="fu">as.Date</span>(<span class="st">&quot;2019-12-31&quot;</span>)</span>
 <span id="cb7-5"><a href="#cb7-5" aria-hidden="true" tabindex="-1"></a>    )</span>
 <span id="cb7-6"><a href="#cb7-6" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb7-7"><a href="#cb7-7" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_cohort_tbl <span class="sc">%&gt;%</span> <span class="fu">glimpse</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<span id="cb7-7"><a href="#cb7-7" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_cohort_tbl <span class="sc">|&gt;</span> <span class="fu">glimpse</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 </details>
 <div class="cell-output cell-output-stdout">
 <pre><code>Rows: 50,000
@@ -2760,18 +2760,18 @@ <h1 data-number="2"><span class="header-section-number">2</span> Generate Long T
 <span id="cb9-11"><a href="#cb9-11" aria-hidden="true" tabindex="-1"></a>  )</span>
 <span id="cb9-12"><a href="#cb9-12" aria-hidden="true" tabindex="-1"></a></span>
 <span id="cb9-13"><a href="#cb9-13" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb9-14"><a href="#cb9-14" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_simparams_tbl <span class="ot">&lt;-</span> synthdata_longframe_cohort_tbl <span class="sc">%&gt;%</span></span>
+<span id="cb9-14"><a href="#cb9-14" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_simparams_tbl <span class="ot">&lt;-</span> synthdata_longframe_cohort_tbl <span class="sc">|&gt;</span></span>
 <span id="cb9-15"><a href="#cb9-15" aria-hidden="true" tabindex="-1"></a>  <span class="fu">generate_pnbd_customer_simulation_params</span>(</span>
 <span id="cb9-16"><a href="#cb9-16" aria-hidden="true" tabindex="-1"></a>    <span class="at">params_lst     =</span> pnbd_params_lst</span>
 <span id="cb9-17"><a href="#cb9-17" aria-hidden="true" tabindex="-1"></a>    )</span>
 <span id="cb9-18"><a href="#cb9-18" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb9-19"><a href="#cb9-19" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_transactions_tbl <span class="ot">&lt;-</span> synthdata_longframe_simparams_tbl <span class="sc">%&gt;%</span></span>
+<span id="cb9-19"><a href="#cb9-19" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_transactions_tbl <span class="ot">&lt;-</span> synthdata_longframe_simparams_tbl <span class="sc">|&gt;</span></span>
 <span id="cb9-20"><a href="#cb9-20" aria-hidden="true" tabindex="-1"></a>  <span class="fu">generate_pnbd_customer_transaction_data</span>(</span>
 <span id="cb9-21"><a href="#cb9-21" aria-hidden="true" tabindex="-1"></a>    <span class="at">final_tnx_date =</span> <span class="fu">as.Date</span>(<span class="st">&quot;2020-01-01&quot;</span>)</span>
-<span id="cb9-22"><a href="#cb9-22" aria-hidden="true" tabindex="-1"></a>    ) <span class="sc">%&gt;%</span></span>
+<span id="cb9-22"><a href="#cb9-22" aria-hidden="true" tabindex="-1"></a>    ) <span class="sc">|&gt;</span></span>
 <span id="cb9-23"><a href="#cb9-23" aria-hidden="true" tabindex="-1"></a>  <span class="fu">generate_transaction_metadata</span>()</span>
 <span id="cb9-24"><a href="#cb9-24" aria-hidden="true" tabindex="-1"></a></span>
-<span id="cb9-25"><a href="#cb9-25" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_transactions_tbl <span class="sc">%&gt;%</span> <span class="fu">glimpse</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<span id="cb9-25"><a href="#cb9-25" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_transactions_tbl <span class="sc">|&gt;</span> <span class="fu">glimpse</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 </details>
 <div class="cell-output cell-output-stdout">
 <pre><code>Rows: 419,261
@@ -2788,9 +2788,9 @@ <h2 data-number="2.1" class="anchored" data-anchor-id="write-data-to-disk-1"><sp
 <div class="cell">
 <details>
 <summary>Show code</summary>
-<div class="sourceCode cell-code" id="cb11"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb11-1"><a href="#cb11-1" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_cohort_tbl       <span class="sc">%&gt;%</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_longframe_cohort_tbl.rds&quot;</span>)</span>
-<span id="cb11-2"><a href="#cb11-2" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_simparams_tbl    <span class="sc">%&gt;%</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_longframe_simparams_tbl.rds&quot;</span>)</span>
-<span id="cb11-3"><a href="#cb11-3" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_transactions_tbl <span class="sc">%&gt;%</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_longframe_transactions_tbl.rds&quot;</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
+<div class="sourceCode cell-code" id="cb11"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb11-1"><a href="#cb11-1" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_cohort_tbl       <span class="sc">|&gt;</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_longframe_cohort_tbl.rds&quot;</span>)</span>
+<span id="cb11-2"><a href="#cb11-2" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_simparams_tbl    <span class="sc">|&gt;</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_longframe_simparams_tbl.rds&quot;</span>)</span>
+<span id="cb11-3"><a href="#cb11-3" aria-hidden="true" tabindex="-1"></a>synthdata_longframe_transactions_tbl <span class="sc">|&gt;</span> <span class="fu">write_rds</span>(<span class="st">&quot;data/synthdata_longframe_transactions_tbl.rds&quot;</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 </details>
 </div>
 </section>
@@ -2814,8 +2814,8 @@ <h1 data-number="3"><span class="header-section-number">3</span> R Environment</
  collate  en_US.UTF-8
  ctype    en_US.UTF-8
  tz       Etc/UTC
- date     2022-12-16
- pandoc   2.19.2 @ /usr/lib/rstudio-server/bin/quarto/bin/tools/ (via rmarkdown)
+ date     2023-02-10
+ pandoc   2.19.2 @ /usr/local/bin/ (via rmarkdown)
 
 ─ Packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────
  package              * version date (UTC) lib source
@@ -2874,7 +2874,6 @@ <h1 data-number="3"><span class="header-section-number">3</span> R Environment</
  reprex                 2.0.2   2022-08-17 [1] RSPM (R 4.2.0)
  rlang                * 1.0.6   2022-09-24 [1] RSPM (R 4.2.0)
  rmarkdown              2.17    2022-10-07 [1] RSPM (R 4.2.0)
- rstudioapi             0.14    2022-08-22 [1] RSPM (R 4.2.0)
  rvest                  1.0.3   2022-08-19 [1] RSPM (R 4.2.0)
  scales               * 1.2.1   2022-08-20 [1] RSPM (R 4.2.0)
  sessioninfo            1.2.2   2021-12-06 [1] RSPM (R 4.2.0)

generate_transaction_datasets.qmd

@@ -90,7 +90,7 @@ synthdata_shortframe_cohort_tbl <- generate_customer_cohort_data(
     last_date   = as.Date("2019-12-31")
     )
 
-synthdata_shortframe_cohort_tbl %>% glimpse()
+synthdata_shortframe_cohort_tbl |> glimpse()
 ```
 
 Now that we have generated our cohort data, we move on to generating our
@@ -112,18 +112,18 @@ pnbd_params_lst <- list(
   amt_custcv  =   1.00
   )
 
-synthdata_shortframe_simparams_tbl <- synthdata_shortframe_cohort_tbl %>%
+synthdata_shortframe_simparams_tbl <- synthdata_shortframe_cohort_tbl |>
   generate_pnbd_customer_simulation_params(
     params_lst     = pnbd_params_lst
     )
 
-synthdata_shortframe_transactions_tbl <- synthdata_shortframe_simparams_tbl %>%
+synthdata_shortframe_transactions_tbl <- synthdata_shortframe_simparams_tbl |>
   generate_pnbd_customer_transaction_data(
     final_tnx_date = as.Date("2020-01-01")
-    ) %>%
+    ) |>
   generate_transaction_metadata()
 
-synthdata_shortframe_transactions_tbl %>% glimpse()
+synthdata_shortframe_transactions_tbl |> glimpse()
 ```
 
 
@@ -134,9 +134,9 @@ We now write this data to disk.
 ```{r write_synth_shortframe_data_disk}
 #| echo: true
 
-synthdata_shortframe_cohort_tbl       %>% write_rds("data/synthdata_shortframe_cohort_tbl.rds")
-synthdata_shortframe_simparams_tbl    %>% write_rds("data/synthdata_shortframe_simparams_tbl.rds")
-synthdata_shortframe_transactions_tbl %>% write_rds("data/synthdata_shortframe_transactions_tbl.rds")
+synthdata_shortframe_cohort_tbl       |> write_rds("data/synthdata_shortframe_cohort_tbl.rds")
+synthdata_shortframe_simparams_tbl    |> write_rds("data/synthdata_shortframe_simparams_tbl.rds")
+synthdata_shortframe_transactions_tbl |> write_rds("data/synthdata_shortframe_transactions_tbl.rds")
 ```
 
 
@@ -156,7 +156,7 @@ synthdata_longframe_cohort_tbl <- generate_customer_cohort_data(
     last_date   = as.Date("2019-12-31")
     )
 
-synthdata_longframe_cohort_tbl %>% glimpse()
+synthdata_longframe_cohort_tbl |> glimpse()
 ```
 
 
@@ -177,18 +177,18 @@ pnbd_params_lst <- list(
   )
 
 
-synthdata_longframe_simparams_tbl <- synthdata_longframe_cohort_tbl %>%
+synthdata_longframe_simparams_tbl <- synthdata_longframe_cohort_tbl |>
   generate_pnbd_customer_simulation_params(
     params_lst     = pnbd_params_lst
     )
 
-synthdata_longframe_transactions_tbl <- synthdata_longframe_simparams_tbl %>%
+synthdata_longframe_transactions_tbl <- synthdata_longframe_simparams_tbl |>
   generate_pnbd_customer_transaction_data(
     final_tnx_date = as.Date("2020-01-01")
-    ) %>%
+    ) |>
   generate_transaction_metadata()
 
-synthdata_longframe_transactions_tbl %>% glimpse()
+synthdata_longframe_transactions_tbl |> glimpse()
 ```
 
 
@@ -199,9 +199,9 @@ We now write this data to disk.
 ```{r write_longframe_synth_data_disk}
 #| echo: true
 
-synthdata_longframe_cohort_tbl       %>% write_rds("data/synthdata_longframe_cohort_tbl.rds")
-synthdata_longframe_simparams_tbl    %>% write_rds("data/synthdata_longframe_simparams_tbl.rds")
-synthdata_longframe_transactions_tbl %>% write_rds("data/synthdata_longframe_transactions_tbl.rds")
+synthdata_longframe_cohort_tbl       |> write_rds("data/synthdata_longframe_cohort_tbl.rds")
+synthdata_longframe_simparams_tbl    |> write_rds("data/synthdata_longframe_simparams_tbl.rds")
+synthdata_longframe_transactions_tbl |> write_rds("data/synthdata_longframe_transactions_tbl.rds")
 ```