inst/skeleton/R/2-analysis.R

In svmiller/steveproj: Steve's Academic R Projects

analysis <- function(data = Data) {

  check_load(formals())

  Mods <- list()
  Mods[[1]] <- lm(immigsent ~ agea + female + eduyrs + uempla + hinctnta +
                    lrscale, data=Data)
  Mods[[2]] <- lm(immigsent ~ agea + female + eduyrs + uempla + hinctnta +
                    lrscale + noise, data=Data)


  saveRDS(Mods, "data/Mods.rds")
  Mods <<- Mods
  return(Mods)
  # #Mods


}