File: names.summary.zelig.relogit.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 (11 lines) | stat: -rw-r--r-- 299 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
names.summary.zelig.relogit <- function(x) {
  res <- names(unclass(x))[1:5]
  qi.names <- names(x$qi.stats)
  for (i in 1:length(qi.names)) {
    qi.names[i] <- paste("qi.stats$", qi.names[i], sep = "")
  }
  res <- c(res, qi.names)
  res <- list(default = res)
  class(res)<-"names.zelig"
  res
}