tests/testthat/_problems/test_ivregranks_vcov-224.R

In csranks: Statistical Tools for Ranks

# Extracted from test_ivregranks_vcov.R:224

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

# test -------------------------------------------------------------------------
load(test_path("testdata", "ivregranks_cov_sigmahat_covariates_TRUE.rda"))
res <- ivregranks(r(Y) ~ r(X) + W | r(Z) + W)
sigma2hat_ivregranks <- vcov(res)[2, 2] * n