Functions with loops in r-Programming

A loop that calculates 12-factorial

facto <- function(n){
  out <- 1
  invec <- 1:n
  for (ele in 1:length(invec)){
    out <- out * invec[ele]
  }
  out
}
facto(12)

## [1] 479001600

How to create a numeric vector that contains the sequence from 20 to 50 by 5

num_vec <- seq(from=20,to=50,by=5)
print(num_vec)

## [1] 20 25 30 35 40 45 50

A function “quadratic” that takes a trio of input numbers a, b, and c and solve the quadratic equation

quadratic <- function(a,b,c){
  discriminant <- ((b^2)-(4*a*c))
  if(discriminant >= 0){
    x1 <- (-b + sqrt(discriminant))/(2*a)
    x2 <- (-b - sqrt(discriminant))/(2*a)
  }else{
    return("The roots contain imaginary numbers")
  }
  
  print(x1)
  print(x2)
}

quadratic(5,6,1)

## [1] -0.2
## [1] -1