Residual Flags - R Programming

Residual checks identify observations where the model missed by more than the allowed tolerance.

Program

Play the script to change the tolerance and count flagged residuals.

residual_flags.R

tolerance <- 
actual <- c(52, 64, 70, 81)
predicted <- c(52, 61, 70, 79)
residual <- actual - predicted
flagged <- abs(residual) > tolerance
count <- sum(flagged)
label <- paste("flags", count, sep = ":")
cat(label, "\n", sep = "")

tolerance <- 
actual <- c(52, 64, 70, 81)
predicted <- c(52, 61, 70, 79)
residual <- actual - predicted
flagged <- abs(residual) > tolerance
count <- sum(flagged)
label <- paste("flags", count, sep = ":")
cat(label, "\n", sep = "")

tolerance <- 
actual <- c(52, 64, 70, 81)
predicted <- c(52, 61, 70, 79)
residual <- actual - predicted
flagged <- abs(residual) > tolerance
count <- sum(flagged)
label <- paste("flags", count, sep = ":")
cat(label, "\n", sep = "")

residual A residual is the actual value minus the predicted value.

absolute error `abs(residual)` measures miss size without direction.

flag Rows beyond the tolerance deserve another look.