## Not run:
# estimation_method <- function(df) lm(eruptions ~ 0 + waiting, df)
# data <- faithful
# model_estimate <- estimation_method(data)
# check_predict_method_throw_error(model_estimate)
# # NULL
# ## End(Not run)
Run the code above in your browser using DataLab