R/tagObs.R

Defines functions tagObs

Documented in tagObs

#' Mark (tag) Observations in a Data Frame
#'
#' A minimal function to mark observations use in a prior run lm() model.
#'
#' @param obj Model object generated by the lm() function.
#'
#' @examples
#' mod_1 <- lm(hp ~ disp + wt, data=mtcars)
#' mtcars$In_mod1 <- tagObs(obj = mod_1)
#' @export
tagObs <- function(obj, tag=1){
  mark <- rep(tag, nrow(get(paste(obj$call$data))))
  mark[attr(obj$model,"na.action")] <- 0
  mark
}
MichaelJMahometa/SDSRegressionR documentation built on March 3, 2021, 10:51 p.m.