Cacher is the code snippet organizer for pro developers

linear_regression <- function(irisData) {
	
  model <- lm(IS_SETOSA ~ ., irisData)
  
  irisData$PREDICTED <- model$coefficients["(Intercept)"] + 
  	model$coefficients["SEPAL_WIDTH"] * irisData$SEPAL_WIDTH + 
  	model$coefficients["SEPAL_LENGTH"] * irisData$SEPAL_LENGTH
  
  irisData
}