Week1 Assignment

Week1 Assigment

Question 1

b = 1
for (i in 12:1)
{
  b <- b *i
}
print(b)

## [1] 479001600

Question 2

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

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

Question 3

factorial.func <- function(a,b,c)
{
  x <- (-b + sqrt((b^2)-(4*a*c)))/(2*a)
  y <- (-b - sqrt((b^2)-(4*a*c)))/(2*a)

  print(x)
  print(y)
}
factorial.func(-5, 4, 1) 

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