Blog Article with `Enlighter` Plugin

Chapter 1

(1a) Read in Data – Standard (enlighter) theme

library(dplyr)
library(readxl)

dir("data",".xlsx$") %>% lapply(function(z) {
  read_xlsx(z)
  })

(1b) Combine and Process Data – Automic theme

date0 = as.Date("2020-12-31")
D = do.call(rbind, L) %>%
  group_by(id) %>%
  summarise(
    r = date - date0,
    f = n(),
    m = sum(pay)/n() 
    ) %>% ungroup()