1 Footnotes

This is some text with a Footnote1. This is a second Footnote2.

1.2 Key Resources

# PDF Knitting Setup: https://yihui.name/tinytex/ 
# install.packages("tintex")
# tinytex::install_tinytex()

2 Write with Markdown

3 Header 1

3.1 Header 2

3.1.1 Header 3

Plain text.

Type bold.

Type italics.

Type bold + italics.

Talk about code - the tidyverse is awesome

Unordered List:

  • Item 1
  • Item 2

Ordered List:

  1. First point
  2. Second point
  3. More points

4 NEW HAMPSHIRE COUNTIES

4.1 GRAFTON

This is Tab 1

4.2 COOS

This is Tab 2

4.3 BELKNAP

BELKNAP COUNTY

4.4 NEW COUNTY

HELLO

5 Images

via the text section

PSU Logo
PSU Logo

image via the code chunk

Plymouth State Logo

Plymouth State Logo

6 Code

# Import stock prices
stocks <- tq_get(c("TSLA", "AMZN"),
                 get = "stock.prices",
                 from = "2019-01-01",
                 to = "2025-09-13")
stocks

7 Plots

Plotting works as expected. Try changing:

Static plots:

g <- ggplot(data = stocks) + 
  geom_point(mapping = aes(x = volume, y = adjusted, color = symbol))

g
Revenue by Category

Revenue by Category

Interactive plots:

ggplotly(g)

8 Tables

Static Tables:

stocks %>% head() %>% knitr::kable()
symbol date open high low close volume adjusted
TSLA 2019-01-02 20.40667 21.00867 19.92000 20.67467 174879000 20.67467
TSLA 2019-01-03 20.46667 20.62667 19.82533 20.02400 104478000 20.02400
TSLA 2019-01-04 20.40000 21.20000 20.18200 21.17933 110911500 21.17933
TSLA 2019-01-07 21.44800 22.44933 21.18333 22.33067 113268000 22.33067
TSLA 2019-01-08 22.79733 22.93400 21.80133 22.35667 105127500 22.35667
TSLA 2019-01-09 22.36667 22.90000 22.09800 22.56867 81493500 22.56867

Dynamic Tables:

stocks 

9 Footnotes

This is some text with a Footnote3. This is a second Footnote4.


  1. Citation for Footnote 1↩︎

  2. Citatin for Footnote 2↩︎

  3. Citation for Footnote 1↩︎

  4. Citatin for Footnote 2↩︎