R/mlm2lm.R

Defines functions mlm2lm

mlm2lm <-
function(lmobj,i)
{
  lmobj2 <- lmobj
  lmobj2$coefficients <- (lmobj$coefficients)[,i]
  lmobj2$residuals <- (lmobj$residuals)[,i]
  lmobj2$effects <- (lmobj$effects)[,i]
  lmobj2$fitted.values <- (lmobj$fitted.values)[,i]
  class(lmobj2) <- "lm"
  return(lmobj2)
}

Try the LMGene package in your browser

Any scripts or data that you put into this service are public.

LMGene documentation built on April 28, 2020, 8:01 p.m.