LinearRCostFunctionReg <- function (theta, X, y, lambda){
  
  #   Compute cost for regularized linear regression with multiple variables
  #
  #   J <- LinearRCostFunctionReg(theta, X, y, lambda) computes the 
  #   cost of using theta as the parameter for linear regression to fit the 
  #   data points in X and y. 
  
  # Initialize some useful values
  m <- length(y) # number of training examples
  
  # ====================== YOUR CODE HERE ======================
  # Instructions: Compute the cost of regularized linear 
  #               regression for a particular choice of theta.
  #
  #               You should set J to the cost.
  #

  
              
  # ============================================================
              
  return(J)           
}