tests/testthat/_snaps/plot_fit_residuals.md

plot_fit_residuals()

Code
  hprice1_dt <- data.table::as.data.table(wooldridge::hprice1)[, .(price, lotsize,
    sqrft, bdrms)]
  housing_price_lm <- price ~ lotsize + sqrft + bdrms
  housing_price_ols <- RregressPkg::ols_calc(df = hprice1_dt, formula_obj = housing_price_lm)
  a_plot <- RregressPkg::plot_fit_residuals(fitted_v = housing_price_ols$
    fitted_vals, residual_v = housing_price_ols$residual_vals, subtitle = "Data from housing prices",
  x_title = "Fitted", y_title = "Residuals", trend_line = FALSE, zero_line_color = "darkorange",
  zero_line_width = 0.8, label_threshold = 100, label_sd = 1)


deandevl/RregressPkg documentation built on Feb. 5, 2025, 12:11 p.m.