wald_test <- function(R, b, vm) { rb <- R %*% b rvri <- R %*% vm %*% t(R) as.numeric(t(rb) %*% solve(rvri) %*% rb) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.