toxic_chems = names(wqs_data)[1:34]
results = gwqs(yLBX ~ wqs, mix_name = toxic_chems, data = wqs_data, q = 4, validation = 0.6,
b = 2, b1_pos = TRUE, b_constr = FALSE, family = gaussian)
# barplot
gwqs_barplot(results)
# scatterplot
gwqs_scatterplot(results)
# fitted values vs rediduals scatterplot
gwqs_fitted_vs_resid(results)
Run the code above in your browser using DataLab