Example: Find factors of a number
print_factors <- function(x) {
print(paste("The factors of",x,"are:"))
for(i in 1:x) {
if((x %% i) == 0) {
print(i)
}
}
}
Output
> print_factors(120) [1] "The factors of 120 are:" [1] 1 [1] 2 [1] 3 [1] 4 [1] 5 [1] 6 [1] 8 [1] 10 [1] 12 [1] 15 [1] 20 [1] 24 [1] 30 [1] 40 [1] 60 [1] 120
In this program we take a number and display its factors using the function print_factors().
In the function, we use a for loop to iterate from 1 to that number and only print it if, it perfectly divides our number. Here, print_factors() is a user-defined function.