Homework 1 07.19.2018

Question 1

x<-1

for (i in 1:12)
  
{x<-x*i}

x

## [1] 479001600

Question 2

y<-c(4:10)*5

y

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

Question 3

factorial<-function(a,b,c)
{
x<-(-1*b+(b^2-4*a*c)^.5)/(2*a)
y<-(-1*b-(b^2-4*a*c)^.5)/(2*a)
print(paste(x," ",y))
}

factorial(1,3,-4)

## [1] "1   -4"