Plots regression

plot_regr(x, y, xlab = "Predicted", ylab = "Experimental", rparams = TRUE)

Arguments

x

y

xlab

ylab

rparams

Details

Value

References

Note

See also

Examples

##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (x, y, xlab = "Predicted", ylab = "Experimental", rparams = TRUE) { plot(x, y, xlab = xlab, ylab = ylab) abline(coef = c(0, 1)) if (rparams) { rp <- regr_param(x, y) text <- sprintf("R2=%6.4f RMSE=%.3g MAE=%.3g", rp$R2, rp$RMSE, rp$MAE) title(sub = text) } }
#> function (x, y, xlab = "Predicted", ylab = "Experimental", rparams = TRUE) #> { #> plot(x, y, xlab = xlab, ylab = ylab) #> abline(coef = c(0, 1)) #> if (rparams) { #> rp <- regr_param(x, y) #> text <- sprintf("R2=%6.4f RMSE=%.3g MAE=%.3g", rp$R2, #> rp$RMSE, rp$MAE) #> title(sub = text) #> } #> } #> <environment: 0x10ef6c588>