Skip to content

Instantly share code, notes, and snippets.

@DexGroves

DexGroves/strip_glm.R

Created March 30, 2016 09:11
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save DexGroves/a3ef6586133c12b876d0c76815813e9f to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save DexGroves/a3ef6586133c12b876d0c76815813e9f to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. DexGroves created this gist Mar 30, 2016.
    24 changes: 24 additions & 0 deletions strip_glm.R
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,24 @@
    strip_glm <- function(cm) {
    cm$y = c()
    cm$model = c()

    cm$residuals = c()
    cm$fitted.values = c()
    cm$effects = c()
    cm$qr$qr = c()
    cm$linear.predictors = c()
    cm$weights = c()
    cm$prior.weights = c()
    cm$data = c()


    cm$family$variance = c()
    cm$family$dev.resids = c()
    cm$family$aic = c()
    cm$family$validmu = c()
    cm$family$simulate = c()
    attr(cm$terms,".Environment") = c()
    attr(cm$formula,".Environment") = c()

    cm
    }