inst/book-ex/Rcode-8-3.R

A1 <- matrix(c(1,0,0,0,0, 0,0,1,0,0,
               0,0,0,1,0, 0,0,0,0,1),
             nrow=5, ncol=4)
A2 <- matrix(c(1,0,0,0,0, 0,1,0,0,0,
               0,0,1,0,0, 0,0,0,1,0),
             nrow=5, ncol=4)
H41 <- summary(alrtest(z = H1, A = A1, r = 2))
H42 <- summary(alrtest(z = H1, A = A2, r = 2))

Try the vars package in your browser

Any scripts or data that you put into this service are public.

vars documentation built on March 31, 2023, 10:30 p.m.