R Bridge Program- Week 1 Assignment

by William Outcault

Q1

tot = 1
for (i in 1:12)
  tot = tot * i
  print(tot)

## [1] 479001600

Q2

vex = seq(20,50,5)
print(vex)

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

Q3

quadratic<-function(a, b, c){
  x1 <- (-b+((b^2)-(4*a*c) ))/(2*a)
  x2 <- (-b-((b^2)-(4*a*c) ))/(2*a)
  print(x1)
  print(x2)
}