Allyson Beach's hw 1

_posts/2021-09-13-insert-post-title/insert-post-title.Rmd

@@ -0,0 +1,36 @@
+---
+title: "My First Post"
+description: "A introduction of myself. Use distill::create_post to create a Rmarkdown." 
+Allyson Beach
+date: 09-13-2021
+output:
+  distill::distill_article:
+    self_contained: false
+draft: true
+---
+
+
+```{r setup, include=FALSE}
+library(ggplot2)
+library(dplyr)
+
+x <- seq(1, 10)
+y <- x*2
+
+```
+
+**Plot of just y = x*2**
+
+```{r, echo = FALSE}
+df <- data.frame(x,y)
+plot(x,y)
+
+knitr::opts_chunk$set(echo = FALSE)
+
+```
+
+Distill is a publication format for scientific and technical writing, native to the web.
+
+Learn more about using Distill at <https://rstudio.github.io/distill>.
+
+

_posts/2021-09-13-title/allyson_beach_hw_1.Rmd

@@ -0,0 +1,45 @@
+---
+title: "HW 1"
+author: "Allyson Beach"
+date: 09-13-2021
+output:
+  distill::distill_article:
+    self_contained: false
+draft: true
+---
+
+
+```{r setup, include=FALSE}
+library(ggplot2)
+knitr::opts_chunk$set(echo = TRUE)
+```
+## Introduction
+Hello everyone! My name is Allyson Beach. I have never used R before this course, but am excited to learn more about it. I am in my final semester in the CS masters program. For this first post, I will plot some simulated data. 
+
+## Objective 
+We will create a vector through the sequence function from 1 to 10 by increments of 1 (default). We will then plot this data with ggplot2 package as a function of y = 2x. 
+
+## Data
+```{r data}
+x <- seq(1, 10)
+x
+y <- x*2
+y
+```
+We can also change the x data to be incremented by 2.
+
+```{r data2}
+x <- seq(1,20, 2)
+x
+y <- x*2
+y
+```
+Here we will plot the data using the ggplot2 package. 
+
+```{r plot}
+figure <- ggplot2::qplot(x,y)
+show(figure)
+```
+
+
+