---
date: "`r Sys.Date()`"
author: "Author Name"
title: "OfficeDown Master"
output:
  officedown::rdocx_document:
    reference_docx: styles/JBO-Neuro_Word_template.docx          # This is the template that will style my document when its knit
link-citations: yes
linkcolor: red
citecolor: blue
bibliography: G:/My Drive/ZoteroRPlugin/My Library.bib  # you will need to export your own bibliography
zotero: TRUE
csl: styles/Citation Styles/spectroscopy-letters.csl    # This sets the style of formatting for references
---

```{r setup, include=FALSE, cache=FALSE, echo=FALSE}
if (!require("pacman")) install.packages("pacman")
pacman::p_load(apastats,tidyverse, officedown, officer)

knitr::opts_chunk$set(fig.cap = TRUE,
                      fig.path = 'images/',
                      echo = FALSE,
                      warning = FALSE,
                      message = FALSE,
                      include = TRUE,
                      dpi = 300,
                      crop = TRUE # This will remove the whitespace surrounding an image see here: https://bookdown.org/yihui/rmarkdown-cookbook/crop-plot.html
                      # The following chunks only work with PDF outputs
                      #fig.pos = 'H', # only works with PDFs
                      #fig.align = 'center', # only works with PDFs
                      #out.height="100%",  out.width="100%") # only works with PDFs
                      )

# Start loading data into the environment
load("data/analyzedData.RData") #load our saved data
use_betterbiblatex = TRUE
```

# Table of content

<!---BLOCK_TOC--->

## List of figures

<!---BLOCK_TOC{seq_id: 'fig'}--->

## List of tables

<!---BLOCK_TOC{seq_id: 'tab'}--->

\pagebreak

::: {custom-style="Article Title"}
Sample manuscript showing style and formatting specifications for *Journal of Biomedical Optics and Neurophotonics* journal papers
:::

::: {custom-style="Author Names"}
First Author,^a^ Second Author,^a^ Third Author,^b^ Fourth Author^a,b,\*^
:::

<div custom-style="Author Affiliations">

^a^ University Name, Faculty Group, Department, City, Country

^b^ Company Name, City, Country
</div>

::: {custom-style = "Corresponding Author Footnote"}
**\***Fourth Author**,** E-mail: <myemail@university.edu>
:::


`r officer::run_linebreak()`

\pagebreak

# Introduction
This document shows the suggested format and appearance of a manuscript prepared for SPIE’s Journal of Biomedical Optics and Neurophotonics. Accepted papers will be professionally typeset. This template is intended to be a tool to improve manuscript clarity for the reviewers. The final layout of the typeset paper will not match this template layout.

## Use of This Template
Authors may use this Microsoft (MS) Word template by employing the relevant styles from the Styles and Formatting list (which is accessed from the Styles group in the Home ribbon, Fig. \@ref(fig:figure1))


```{r figure1, fig.cap = "MS Word 2010 Home ribbon. Red arrow indicates where to access Styles window.", fig.asp=2550/3300, fig.height=6.5}
knitr::include_graphics("images/figure1.png")
```

To view which style is being used in any part of this document, place the cursor on the line and look in the style list (Fig. \@ref(fig:figure2)):

```{r figure2, fig.cap = "Styles window", fig.asp=2550/3300, fig.height=6.5}
knitr::include_graphics("images/figure2.png")
```

Fig. 1 MS Word 2010 Home ribbon. Red arrow indicates where to access Styles window.
To view which style is being used in any part of this document, place the cursor on the line and look in the style list (Fig. 2):


# Results

There was a significant effect of service on the average journey time `r describe.aov(model, "service", sstype = 2)`. Descriptive statistics were run and are shown in Table \@ref(tab:journey-time) below

```{r tab.id="journey-time", tab.cap="Descriptives"}
journeyTime
```

A plot is shown in Figure \@ref(fig:myFigure)

```{r myFigure, fig.cap = "Caption for my Figure", fig.asp=2550/3300, fig.height=6.5}
knitr::include_graphics("images/plot1.png")
```