Creating Functions

]

# Week 3: .fancy[Creating Functions]

### <svg aria-hidden="true" role="img" viewBox="0 0 512 512" style="height:1em;width:1em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:white;overflow:visible;position:relative;"><path d="M243.4 2.6l-224 96c-14 6-21.8 21-18.7 35.8S16.8 160 32 160v8c0 13.3 10.7 24 24 24H456c13.3 0 24-10.7 24-24v-8c15.2 0 28.3-10.7 31.3-25.6s-4.8-29.9-18.7-35.8l-224-96c-8-3.4-17.2-3.4-25.2 0zM128 224H64V420.3c-.6 .3-1.2 .7-1.8 1.1l-48 32c-11.7 7.8-17 22.4-12.9 35.9S17.9 512 32 512H480c14.1 0 26.5-9.2 30.6-22.7s-1.1-28.1-12.9-35.9l-48-32c-.6-.4-1.2-.7-1.8-1.1V224H384V416H344V224H280V416H232V224H168V416H128V224zM256 64a32 32 0 1 1 0 64 32 32 0 1 1 0-64z"/></svg> EMSE 4571 / 6571: Intro to Programming for Analytics
### <svg aria-hidden="true" role="img" viewBox="0 0 448 512" style="height:1em;width:0.88em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:white;overflow:visible;position:relative;"><path d="M304 128a80 80 0 1 0 -160 0 80 80 0 1 0 160 0zM96 128a128 128 0 1 1 256 0A128 128 0 1 1 96 128zM49.3 464H398.7c-8.9-63.3-63.3-112-129-112H178.3c-65.7 0-120.1 48.7-129 112zM0 482.3C0 383.8 79.8 304 178.3 304h91.4C368.2 304 448 383.8 448 482.3c0 16.4-13.3 29.7-29.7 29.7H29.7C13.3 512 0 498.7 0 482.3z"/></svg> John Paul Helveston
### <svg aria-hidden="true" role="img" viewBox="0 0 448 512" style="height:1em;width:0.88em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:white;overflow:visible;position:relative;"><path d="M152 24c0-13.3-10.7-24-24-24s-24 10.7-24 24V64H64C28.7 64 0 92.7 0 128v16 48V448c0 35.3 28.7 64 64 64H384c35.3 0 64-28.7 64-64V192 144 128c0-35.3-28.7-64-64-64H344V24c0-13.3-10.7-24-24-24s-24 10.7-24 24V64H152V24zM48 192H400V448c0 8.8-7.2 16-16 16H64c-8.8 0-16-7.2-16-16V192z"/></svg> February 01, 2024

]

---

# Quiz 2

## Write your name on the quiz!

## Rules:

- Work alone; no outside help of any kind is allowed.
- No calculators, no notes, no books, no computers, no phones.

]

]

---

# Week 3: .fancy[Creating Functions]

### 1. Function syntax
### 2. Local vs global variables

### BREAK

### 3. Top-down design
### 4. Coding style

---

# Week 3: .fancy[Creating Functions]

### 1. .orange[Function syntax]
### 2. Local vs global variables

### BREAK

### 3. Top-down design
### 4. Coding style

---

# Basic function syntax

```r
name <- function(arguments) {
    # Do stuff here
    return(something)
}
```

]

---

# Basic function syntax

In English:

> "`name()` is a `function` of `arguments` that does..."

In Code:

```r
name <- function(arguments) {}
```

]

---

# Basic function syntax

> "`squareRoot()` is a `function` of `n` that...returns the square root of `n`"

```r
squareRoot <- function(n) {
    return(n^0.5)
}
```

]

```r
squareRoot(64)
```

```
#> [1] 8
```

]

---

# `return()` and `cat()` statements

```r
isPositive <- function(n) {
    return(n > 0)
}
```

]]

```r
isPositive <- function(n) {
    cat(n > 0)
}
```

]]

---

# `return()` and `cat()` statements

```r
isPositive <- function(n) {
    return(n > 0)
}
```

`return()` _returns_ back a value

```r
test <- isPositive(7)
test
```
```
TRUE
```

]]

```r
isPositive <- function(n) {
    cat(n > 0)
}
```

]]

---

# `return()` and `cat()` statements

```r
isPositive <- function(n) {
    return(n > 0)
}
```

`return()` _returns_ back a value

```r
test <- isPositive(7)
test
```

```
TRUE
```

]]

```r
isPositive <- function(n) {
    cat(n > 0)
}
```

`cat()` _prints_ a value to the console

```r
test <- isPositive(7)
```

```
TRUE
```

```r
test
```

```
Error: object 'test' not found
```

]]

---

## `cat()` is short for "concatenating"

```r
print_x <- function(x) {
    cat("The value of x is", x)
}
```

```r
print_x(7)
```

```
#> The value of x is 7
```

```r
print_x_squared <- function(x) {
    cat("The value of x is", x, "and the value of x^2 is", x^2)
}
```

```r
print_x_squared(7)
```

```
#> The value of x is 7 and the value of x^2 is 49
```

---

## `cat()` adds a space between values by default

```r
print_x <- function(x) {
    cat("The value of x is", x)
}
```

```r
print_x(7)
```

```
#> The value of x is 7
```

Modify separator with the `sep` argument:

```r
print_x <- function(x) {
    cat("The value of x is", x, sep = ": ")
}
```

```r
print_x(7)
```

```
#> The value of x is: 7
```

---

# Your turn: Code tracing practice

```r
f1 <- function(x) {
    return(x^3)
}

f2 <- function(x) {
    cat(x^3)
}

f3 <- function(x) {
    cat(x^3)
    return(x^4)
}

f4 <- function(x) {
    return(x^3)
    cat(x^4)
}
```

]]

Considering the functions on the left, what will these lines of code produce?

Write your answer down first, _then_ run the code to check.

```r
f1(2)
f2(2)
f3(2)
f4(2)
```

]]

---

# Week 3: .fancy[Creating Functions]

### 1. Function syntax
### 2. .orange[Local vs global variables]

### BREAK

### 3. Top-down design
### 4. Coding style

---

# Local objects

### All objects inside function are **"local"** - they don't exist in the _global_ environment

### Example:

```r
squareOfX <- function(x) {
* y <- x^2     # y here is "local"
  return(y)
}
```

]]

```r
squareOfX(3)
```

```
#> [1] 9
```

If you try to call `y`, you'll get an error:

```r
y
```

```
Error: object 'y' not found
```

]

---

# Global objects

### **Global** objects exist in the main environment.

### **NEVER, NEVER, NEVER** call global objects inside functions.

```r
print_x <- function(x) {
    cat(x)
*   cat(n)  # n is global!
}

n <- 7 # Define n in the *global* environment

print_x(5)
```

```
#> 57
```

]

```r
n <- 6

print_x(5)
```

```
#> 56
```

**Function behavior shouldn't change with the same arguments!**

]

---

# Global objects

### All objects inside functions should be **arguments** to that function

```r
print_x <- function(x, n = NULL) {
    cat(x)
*   cat(n)  # n is local!
}

n <- 7 # Define n in the *global* environment

print_x(5)
```

```
#> 5
```

]

```r
n <- 6

print_x(5)
```

```
#> 5
```

Use `n` as argument:

```r
print_x(5, n)
```

```
#> 56
```

]

---

# Your turn: Code tracing practice

```r
f1 <- function(x) {
    cat(x^3)
    cat(y, x)
}

f2 <- function(x, y = 7) {
    cat(x^3, y)
}

f3 <- function(x, y) {
    cat(x^3)
    cat(y)
}

f4 <- function(x) {
    return(x^3)
    cat(x^4)
}
```

]]

Considering the functions on the left, what will these lines of code produce?

Write your answer down first, _then_ run the code to check.

```r
x <- 7
y <- NULL

f1(2)
f2(2)
f3(2)
f4(2)
```

]]

---

# .fancy[Intermission]

---

# Week 3: .fancy[Creating Functions]

### 1. Function syntax
### 2. Local vs global variables

### BREAK

### 3. .orange[Top-down design]
### 4. Coding style

---

# "Top Down" design

## 1. Break the problem into pieces

## 2. Solve the "highest level" problem first

## 3. Then solve the smaller pieces

---

**Example**: Given values `a` and `b`, find the value `c` such that the triangle formed by lines of length `a`, `b`, and `c` is a right triangle (in short, find the hypotenuse)

]

---

**Example**: Given values `a` and `b`, find the value `c` such that the triangle formed by lines of length `a`, `b`, and `c` is a right triangle (in short, find the hypotenuse)

]

### Hypotenuse: `\(c = \sqrt{a^2 + b^2}\)`
### Break the problem into two pieces:
### `\(c = \sqrt{x}\)`
### `\(x = a^2 + b^2\)`

]

---

**Example**: Given values `a` and `b`, find the value `c` such that the triangle formed by lines of length `a`, `b`, and `c` is a right triangle (in short, find the hypotenuse)

]

### Hypotenuse: `\(c = \sqrt{a^2 + b^2}\)`
### Break the problem into two pieces:
### `\(c = \sqrt{x}\)`

```r
hypotenuse <- function(a, b) {
    return(sqrt(sumOfSquares(a, b)))
}
```

### `\(x = a^b + b^2\)`

```r
sumOfSquares <- function(a, b) {
    return(a^2 + b^2)
}
```

]

---

# Your turn

Create a function, `isRightTriangle(a, b, c)` that returns `TRUE` if the triangle formed by the lines of length `a`, `b`, and `c` is a right triangle and `FALSE` otherwise.

Use the `hypotenuse(a, b)` function below in your solution.

```r
hypotenuse <- function(a, b) {
    return(sqrt(sumOfSquares(a, b)))
}
```

```r
sumOfSquares <- function(a, b) {
    return(a^2 + b^2)
}
```

]]

---

# Week 3: .fancy[Creating Functions]

### 1. Function syntax
### 2. Local vs global variables

### BREAK

### 3. Top-down design
### 4. .orange[Coding style]
]

---

# Style matters!

## Which is easier to understand?

V1:

```r
sumofsquares<-function(a,b)return(a^2 + b^2)
```

V2:

```r
sum_of_squares <- function(a, b) {
    return(a^2 + b^2)
}
```

]]

---

# Style matters!

## Which is easier to understand?

V1:

```r
sumofsquares<-function(a,b)return(a^2 + b^2)
```

V2: <- **This one is _much_ better!**

```r
sum_of_squares <- function(a, b) {
    return(a^2 + b^2)
}
```

]]

---

# Use the "Advanced R" style guide:

## http://adv-r.had.co.nz/Style.html

<br>

## Other good style tips on [this blog post](https://www.r-bloggers.com/%F0%9F%96%8A-r-coding-style-guide/)

---

# Style guide: **Objects**

]

- Use ` <- ` for assignment, not ` = `
- Put spacing around operators<br>(e.g. `x <- 1`, not `x<-1`)
- Use [meaningful variable names](https://p4a.jhelvy.com/getting-started.html#use-meaningful-variable-names)
- This applies to file names too<br>(e.g. "`hw1.R`" vs. "`untitled.R`")

]

---

# Style guide: **Functions**

Generally, function names should be **verbs** because they **do things**:

```r
add()      # Good
addition() # Bad
```

Avoid using the "`.`" symbol:

```r
get_hypotenuse()  # Good
get.hypotenuse()  # Bad
```

Use curly braces, with indented code inside:

```r
sum_of_squares <- function(a, b) {
    return(a^2 + b^2)
}
```

---

Tools -> Global options

**Indent by 4 spaces**

]

**Set line length to 80**

]

---

# Your turn

`onesDigit(x)`: Write a function that takes an integer and returns its ones digit.

Tests:
- onesDigit(123) == 3
- onesDigit(7890) == 0
- onesDigit(6) == 6
- onesDigit(-54) == 4

]

`tensDigit(x)`: Write a function that takes an integer and returns its tens digit.

Tests:
- tensDigit(456) == 5
- tensDigit(23) == 2
- tensDigit(1) == 0
- tensDigit(-7890) == 9

]

---

### Hint #1:

You may want to use `onesDigit(x)` as a helper function for `tensDigit(x)`

### Hint #2:

The mod operator (`%%`) "chops" a number and returns everything to the _right_

```r
123456 %% 1
```

```
#> [1] 0
```

```r
123456 %% 10
```

```
#> [1] 6
```

]

The integer divide operator (`%/%`) "chops" a number and returns everything to the _left_

```r
123456 %/% 1
```

```
#> [1] 123456
```

```r
123456 %/% 10
```

```
#> [1] 12345
```

]

---

# Your turn

`eggCartons(eggs)`: Write a function that takes a non-negative number of eggs and returns the number of egg cartons required to hold that many eggs. Each egg carton holds one dozen eggs, and you cannot buy fractional egg cartons.

- eggCartons(0) == 0
- eggCartons(1) == 1
- eggCartons(12) == 1
- eggCartons(25) == 3

]

`militaryTimeToStandardTime(n)`: Write a function that takes an integer between 0 and 23 (representing the hour in [military time](http://militarytimechart.com/)), and returns the same hour in standard time.

- militaryTimeToStandardTime(0) == 12
- militaryTimeToStandardTime(3) == 3
- militaryTimeToStandardTime(12) == 12
- militaryTimeToStandardTime(13) == 1
- militaryTimeToStandardTime(23) == 11

]