Add a data example

Author: coatless

DESCRIPTION

@@ -20,3 +20,4 @@ RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)
 Suggests: 
     altdoc
+LazyData: true

R/residual_surrealism.R

@@ -0,0 +1,19 @@
+#' Residual (Sur)Realism
+#'
+#' A dataset containing residuals from a surreal model.
+#'
+#' @format 
+#' A data frame with 5,395 rows and 7 columns:
+#'
+#' @examples
+#' data(residual_surrealism)
+#' 
+#' model = lm(V1 ~ ., residual_surrealism)
+#' 
+#' plot(fitted(model),resid(model))
+#' abline(0, 0, col = "red")
+#' 
+#' @source 
+#' Leonard A Stefanski
+#' <https://www.tandfonline.com/doi/abs/10.1198/000313007X190079>
+"residual_surrealism"