DATA 101 Extra Credit 1

Prompts:

1. Write a function called add_five that takes a number and returns that number plus 5.

add_five <- function(n) {
  return(n+5)
} 

add_five(4)

## [1] 9

2. Write a function check_number that takes a number and returns “Positive” if the number is greater than 0, “Negative” if less than 0, and “Zero” if equal to 0.

check_number <- function(n) {
  if (n > 0) {return("Positive")}
  else if (n < 0) {return("Negative")}
  else if (n == 0) {return("Zero")}
}

check_number(5)

## [1] "Positive"

check_number(-8.3)

## [1] "Negative"

check_number(0)

## [1] "Zero"

3. Write a function sum_of_cubes that uses a for loop to calculate the sum of the cubes of numbers from 1 to n.

sum_of_cubes <- function(n) {
  sum <- 0
  for (i in 1:n) {
    sum <- sum + i**3
  }
  return(sum)
}

sum_of_cubes(4)

## [1] 100

4. Write a function countdown that uses a while loop to print numbers starting from n down to 1, and then returns “Blast off!”.

countdown <- function(n) {
  i <- n
  while (i > 0) {
    print(i)
    i <- i-1
  }
  return("Blast off!")
}
countdown(5)

## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1

## [1] "Blast off!"