tests/testthat/_problems/test_ivregranks_vcov-14.R

In csranks: Statistical Tools for Ranks

# Extracted from test_ivregranks_vcov.R:14

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

# test -------------------------------------------------------------------------
model <- ivregranks(r(mpg) ~ r(hp) + cyl | r(disp) + cyl, data = mtcars)
V <- vcov(model)