Prompts:
- Write a function called add_five that takes a number and returns
that number plus 5.
add_five <- function(x) {
return(x + 5)
}
add_five(78)
## [1] 83
- 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(number) {
if (number > 0) {
return("Positive")
}
else if (number < 0) {
return("Negative")
}
else
return("Zero")
}
check_number(4)
## [1] "Positive"
check_number(0)
## [1] "Zero"
check_number(-88)
## [1] "Negative"
- 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) {
total <- 0
for (i in 1:n) {
total <- total + i^3
}
return(total)
}
sum_of_cubes(4)
## [1] 100
- 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) {
while (n > 0) {
print(n)
n <- n - 1
}
return("Blast off!")
}
countdown(10)
## [1] 10
## [1] 9
## [1] 8
## [1] 7
## [1] 6
## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1
## [1] "Blast off!"