File: firstlib.R

package info (click to toggle)
survival 2.17-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,364 kB
  • ctags: 1,044
  • sloc: asm: 8,701; ansic: 6,702; sh: 28; makefile: 22
file content (19 lines) | stat: -rw-r--r-- 533 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
.onLoad <- function(lib, pkg) {
    ## survfit.print.n=="start" is compatible with previous R
    ##     and with MASS
    if (is.null(getOption("survfit.print.n")))
        options(survfit.print.n="start")
    ## survfit.print.mean==TRUE is compatible with previous R/SPLUS
    ##     (but is silly)
    if (is.null(getOption("survfit.print.mean")))
        options(survfit.print.mean=FALSE)
}



is.category <- function(x) inherits(x,"factor") || is.factor(x)



labels.survreg <- function(object, ...) attr(object,"term.labels")