R_Week 1 Assigment_ER Rev01

#Assignment 1
factorial<-function(num)
{
  x = 1
  for(i in 1:num)
  {
    x=x*i
  }
  print(x)
}

#Test1
factorial(3)

## [1] 6

factorial(4)

## [1] 24

#Assignment 2
x1<-c(20)
x2<-20
for(i in 1:6)
{
  x2<-x2+5
  x1<-append(x1, x2)

}
print(x1)

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

#Assignment 3
quadsolution<-function(){
  a <- readline(prompt="Enter coefficient a: ")
  b <- readline(prompt="Enter coefficient b: ")
  c <- readline(prompt="Enter coefficient c: ")
  a <- as.integer(a)
  b <- as.integer(b)
  c <- as.integer(c)  
  d <- sqrt(as.complex(b^2-4*a*c))
  x1<- (-b+d)/(2*a)
  x2<- (-b-d)/(2*a)
  print(paste("Solution to Quadratic Equation:",x1," , ", x2))
}

quadsolution()

## Enter coefficient a: 
## Enter coefficient b: 
## Enter coefficient c: 
## [1] "Solution to Quadratic Equation: NA  ,  NA"