knitr::opts_chunk$set(echo = FALSE)
library(FinMetric)

url <- 'https://vincentarelbundock.github.io/Rdatasets/csv/HistData/Guerry.csv'
dat <- read_csv(url)

models <- list(
  "OLS 1"     = lm(Donations ~ Literacy + Clergy, data = dat),
  "Poisson" = glm(Donations ~ Literacy + Commerce, family = poisson, data = dat),
  "OLS 2"     = lm(Crime_pers ~ Literacy + Clergy, data = dat)
)

Section

R Markdown

This is an R Markdown presentation. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document.

Slide with Bullets

Slide with R Output

summary(cars)

Slide with Plot

plot(pressure)

Slide with Regression Table

msummary(models, output = 'kableExtra', stars = T) %>% 
    kable_styling(latex_options = 'scale_down', font_size = 8)

\singlespacing \bibliographystyle{ecta} \bibliography{}



WayneLockon/FinMetric documentation built on July 17, 2025, 12:10 a.m.