{r setup, include=FALSE} knitr::opts_chunk$set(echo = F, eval = F)  Please submit the **.Rmd** file and all output files (**.html**, **.pdf**, etc.) ## Some quick problems 1. Create an object called myObject and assign it a value between 1 and 100 {r} myObject <- 59  2. Add 13 to myObject, making sure the object itself stores the updated value {r} myObject <- myObject + 13  3. Is myObject divisible by 2? by 3? by 13? by 21? Use R code to get the answer. {r} myObject %% 2 == 0 myObject %% 3 == 0 myObject %% 13 == 0 myObject %% 21 == 0  4. How many times can 5 fit in myObject? {r} myObject %/% 5  5. Add myObject to every element of a vector with values 1, 2, 3, 4, and 5 {r} myObject + c(1, 2, 3, 4, 5)  6. Fix this code (without changing any numbers) to get it to return r 5 + 3^(3%/%2) {r, echo=TRUE} 5+3^3%/%2  {r, eval=FALSE, echo=FALSE} 5 + 3^(3 %/% 2)  ## R Markdown Practice Create an R markdown document with the following components: - A custom title (i.e., not "Untitled") and your name - Change the theme from the default theme - Headers 1 through 4 - An in-line R calculation - Write the equation for the probability density function the normal distribution (R Markdown renders LaTeX style math, so Google will be your friend here!) $$\frac{1}{\sigma\sqrt{2\pi}}e^{-\frac{1}{2}\left(\frac{x-\mu}{\sigma}\right)^2}$$ - A block of R code (whatever you want) that is displayed, run, but does not show output in the rendered document {r, results='hide'} 2 + 2  - A block of R code that is displayed, but is *not* run and thus does not show output in the rendered document {r, eval=FALSE} 2 + 2  - A block of R code that is not shown, but produces output in the rendered document {r, echo=FALSE} 2 + 2  - An ordered list 1. This 2. Is 1. an ordered 2. list! - An unordered list - this is an - unordered list! - A link to an external website like [UW's website](https://www.washington.edu/) - A plot, 5in$\times7in that is right-aligned in the rendered document (hint: if you need help generating a random plot, copy example code at the bottom of ?plot) {r, fig.height=5, fig.width=7} Speed <- carsspeed Distance <- cars\$dist plot(Speed, Distance, panel.first = grid(8, 8), pch = 0, cex = 1.2, col = "blue")  - A picture ![UW Logo](http://depts.washington.edu/uwcreate/img/UW_W-Logo_smallRGB.gif) - **Bold text** - *Italicized text* - Look online for an R package that might be useful for you in the future! This can be a package for conducting a specific type of analysis, creating certain figures, or anything else! Load the package in your markdown script and give me a two-sentence overview of the package. - **Bonus**: - Underlined text - Red text - White text with a red background - Render a MS Word document - Render a PDF document