This is the Lab Week 2 document for R-DAVIS. Complete the tasks below in this file (or in your own `.Rmd` or `.R` file, if you prefer), save it, and upload that file to Canvas. No need to render it to HTML.

In this lab we are going to practice subsetting and manipulating vectors.  

The chunk of code below will create the vector you will use in your lab today. Check in your environment to see what it looks like. 

```{r}
set.seed(15)
hw2 <- runif(50, 4, 50)
hw2 <- replace(hw2, c(4,12,22,27), NA)
hw2
```

1. What do you think each line of code is doing? Write your answer below in Markdown.

2. Take your `hw2` vector and remove all the NAs then select all the numbers between 14 and 38 inclusive, call this vector `prob1`. Create a new code chunk for this step.

3. Multiply each number in the `prob1` vector by 3 to create a new vector called `times3`. Then add 10 to each number in your `times3` vector to create a new vector called `plus10`. Create a new code chunk for this step.

4. Select every other number in your `plus10` vector by selecting the first number, not the second, the third, not the fourth, etc. Create a third new code chunk for this step. If you've worked through these three problems in order, you should now have a vector that is 12 numbers long that looks **exactly** like this one:

```
##  [1] 105.09174  57.04763  92.25447  83.74723 100.07297  87.73902  57.43049
##  [8]  92.76726  93.19901  85.12543  69.44137  67.57845
```

Finally, save your .qmd and upload your file to Canvas.