> model1 = lm(mydata$Churn~mydata$TIC+mydata$CSC)
Warning messages:
1: In model.response(mf, "numeric") :
  using type = "numeric" with a factor response will be ignored
2: In Ops.factor(y, z$residuals) : ‘-’ not meaningful for factors
> summary(model1)

Call:
lm(formula = mydata$Churn ~ mydata$TIC + mydata$CSC)

Residuals:
Error in quantile.default(resid) : factors are not allowed
In addition: Warning message:
In Ops.factor(r, 2) : ‘^’ not meaningful for factors