File: print.summary.zelig.strata.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 (14 lines) | stat: -rw-r--r-- 375 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
print.summary.zelig.strata <- function(x, subset = NULL, ...){
  if (is.null(subset))
    m <- length(x)
  else if (any(subset > max(m)))
    stop("the subset selected lies outside the range of available \n        sets of regression output.")
  else
    m <- subset
  for (i in 1:m) {
    cat(paste("\nResults for", names(x)[i], "\n"))
    print(x[[i]])
    cat("\n")
  }
}