File: Var.R

package info (click to toggle)
car 1.2-8-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 932 kB
  • sloc: makefile: 1
file content (27 lines) | stat: -rwxr-xr-x 683 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
# Variance-Covariance matrices (J. Fox)

# last modified 9 Nov 02 by J. Fox

Var<-function(object, ...){
    UseMethod("Var")
    }
    
Var.lm<-function(object, diagonal=FALSE, ...){
    summary<-summary(object, corr=FALSE)
    V<-(summary$sigma^2)*summary$cov.unscaled
    if (diagonal) diag(V) else V
    }
    
Var.glm<-function(object, diagonal=FALSE, ...){
    summary<-summary(object, corr = FALSE)
    V<-summary$dispersion*summary$cov.unscaled
    if (diagonal) diag(V) else V
    }

Var.default<-function(object, diagonal=FALSE, ...){
    # last modified 12 Dec 2000 by J. Fox
    V<-var(object, ...)
    if (diagonal) diag(V) else V
    }