tests/testthat/_problems/test_ivregranks_vcov-59.R

In csranks: Statistical Tools for Ranks

# Extracted from test_ivregranks_vcov.R:59

# setup ------------------------------------------------------------------------
library(testthat)
test_env <- simulate_test_env(package = "csranks", path = "..")
attach(test_env, warn.conflicts = FALSE)

# test -------------------------------------------------------------------------
w <- cbind(mtcars$qsec, mtcars$qsec)
model <- ivregranks(r(mpg) ~ r(hp) + w | r(disp) + w, data = mtcars)
cov2 <- vcov(model, component = "stage2", complete = FALSE)