Weight Matrix for All Intersection Hypotheses

Obtains the weight matrix for all intersection hypotheses.

fwgtmat(w, G)

Arguments

w

The vector of weights for elementary hypotheses.

G

The transition matrix.

Value

The weight matrix starting with the global null hypothesis.

Author

Kaifeng Lu, kaifenglu@gmail.com

Examples

w <- c(0.5,0.5,0,0)
G <- matrix(c(0,0,1,0, 0,0,0,1, 0,1,0,0, 1,0,0,0),
            nrow=4, ncol=4, byrow=TRUE)
(wgtmat <- fwgtmat(w,G))
#> $inthyp
#>       [,1] [,2] [,3] [,4]
#>  [1,]    1    1    1    1
#>  [2,]    1    1    1    0
#>  [3,]    1    1    0    1
#>  [4,]    1    1    0    0
#>  [5,]    1    0    1    1
#>  [6,]    1    0    1    0
#>  [7,]    1    0    0    1
#>  [8,]    1    0    0    0
#>  [9,]    0    1    1    1
#> [10,]    0    1    1    0
#> [11,]    0    1    0    1
#> [12,]    0    1    0    0
#> [13,]    0    0    1    1
#> [14,]    0    0    1    0
#> [15,]    0    0    0    1
#> 
#> $wgtmat
#>       [,1] [,2] [,3] [,4]
#>  [1,]  0.5  0.5  0.0  0.0
#>  [2,]  0.5  0.5  0.0  0.0
#>  [3,]  0.5  0.5  0.0  0.0
#>  [4,]  0.5  0.5  0.0  0.0
#>  [5,]  0.5  0.0  0.0  0.5
#>  [6,]  1.0  0.0  0.0  0.0
#>  [7,]  0.5  0.0  0.0  0.5
#>  [8,]  1.0  0.0  0.0  0.0
#>  [9,]  0.0  0.5  0.5  0.0
#> [10,]  0.0  0.5  0.5  0.0
#> [11,]  0.0  1.0  0.0  0.0
#> [12,]  0.0  1.0  0.0  0.0
#> [13,]  0.0  0.0  0.5  0.5
#> [14,]  0.0  0.0  1.0  0.0
#> [15,]  0.0  0.0  0.0  1.0
#>