R/wald.R

Defines functions wald_test

wald_test <- function(R, b, vm) {
  rb <- R %*% b
  rvri <- R %*% vm %*% t(R)
  as.numeric(t(rb) %*% solve(rvri) %*% rb)
}
aslez/spRegime documentation built on April 16, 2020, 9:51 a.m.