File: zelig2gamma.mixed.R

package info (click to toggle)
zelig 3.3-1-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 30,800 kB
  • ctags: 470
  • sloc: sh: 81; makefile: 10
file content (17 lines) | stat: -rw-r--r-- 416 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
zelig2gamma.mixed <- function(formula, model, data, M, ...){
        mf <- match.call(expand.dots=TRUE)
        mf[[1]]<- as.name("lmer")
        
        mf$formula <- tolmerFormat(reduceMI(formula))
        
        mf$model <- mf$M <- NULL
        
        if (is.null(mf$family)){
                mf$family <- Gamma
        }
        return(as.call(mf))
}

model.frame.lmer <- function(obj){
        obj@frame
}