computeCost <- function(X, y, theta){
  
  #   Compute cost for linear regression
  #
  #   J <- computeCost(X, y, theta) 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 a particular choice of theta
  #               You should set J to the cost.
  
  
  
  # ==============================================================
  
  return(J)
}