exercise2.Rmd

## Exercise 2. Numeric vector manipulation (15 minutes)

### Exercise 2a.

Create the script "exercise2.R" and save it to the "Rcourse/Module1" directory: you will save all the commands of exercise 2 in that script.
<br>Remember you can comment the code using #.

**1- Go to Rcourse/Module1
First check where you currently are with getwd();
then go to Rcourse/Module1 with setwd()**

<details>
<summary>
*Answer*
</summary>

```{r, eval=F}
getwd()
setwd("Rcourse/Module1")
setwd("~/Rcourse/Module1")
```

</details>


**2- Create a numeric vector "y" which contains the numbers from 2 to 11, both included.** 
<br>Show y in the console.

<details>
<summary>
*Answer*
</summary>

```{r}
y <- c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11)
# same as
y <- 2:11
# show in console:
y
```

</details>

**3- How many elements are in y? I.e what is the length of vector y ?**

<details>
<summary>
*Answer*
</summary>

```{r}
length(y)
```

</details>

**4- Show the 2nd element of y.**

<details>
<summary>
*Answer*
</summary>

```{r}
y[2]
```

</details>

**5- Show the 3rd and the 6th elements of y.**

<details>
<summary>
*Answer*
</summary>

```{r}
y[c(3,6)]
```

</details>

**6- Remove the 4th element of y: reassign. What is now the length of y ?**

<details>
<summary>
*Answer*
</summary>

```{r}
# remove 4th element and reassign
y <- y[-4]
# length of y
length(y)
```

</details>

**7- Show all elements of y that are less than 7.**

<details>
<summary>
*Answer*
</summary>

```{r}
# which elements of y are less than 7:
y < 7
# show those elements 
y[ y < 7 ]
```

</details>

**8- Show all elements of y that are more than or equal to 4 and less than 9.**

<details>
<summary>
*Answer*
</summary>

```{r}
y[ y >= 4 & y < 9 ]
```

</details>

**9. What are the mean, median, minimum and maximum values of y?**

<details>
<summary>
*Answer*
</summary>

```{r}
mean(y); median(y); min(y); max(y)
```

</details>

**10- Create vector y2 as:**<br>

```{r}
y2 <- c(1, 11, 5, 62,  18, 2, 8)
```

**11- Which elements of y2 are also present in y ?<br>Note: remember the %in% operator.**

<details>
<summary>
*Answer*
</summary>

```{r}
y2[ y2 %in% y ]
```

</details>


### Exercise 2b.

**1- Create the vector myvector as:**

```{r}
myvector <- c(1, 2, 3, 1, 2, 3, 1, 2, 3)
```

**2- Create the same vector using the rep.int() function (look for help: ?rep.int)**

<details>
<summary>
*Answer*
</summary>

```{r}
myvector <- rep.int(x=1:3, times=3)
```

</details>


**3- Calculate the fraction/percentage of each element of myvector (relative to the sum of all elements of the vector).<br>Note: function sum() can be useful...**


<details>
<summary>
*Answer*
</summary>

```{r}
# sum of all elements of the vector
mytotal <- sum(myvector)
# divide each element by the sum
myvector / mytotal
# multiply by 100 to get a percentage
(myvector / mytotal) * 100
```

</details>