R Bridge Course HW1

#1 - Loop for 12!

#2 - Vector including 20-50 by 5

x<-seq(20,50,by=5)
x

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

#3 - Quadratic Formula

quadForm=function(a,b,c){
x1=-(b-sqrt(b^2-4*a*c))/(2*a)
x2=-(b+sqrt(b^2-4*a*c))/(2*a)
return(c(x1,x2))
}
quadForm(1,2,1)

## [1] -1 -1

quadForm(1,6,5)

## [1] -1 -5

quadForm(1,1,1)

## Warning in sqrt(b^2 - 4 * a * c): NaNs produced

## Warning in sqrt(b^2 - 4 * a * c): NaNs produced

## [1] NaN NaN