tests/testthat/testeigen_fix.R
In mattdwebb/wildclusterboot: Wild Cluster Bootstrap
###### TESTS eigen_fix_cpp FUNCTION ######
test_that('eigen_fix_cpp returns correct sandiwhich matrix',{
sandwich <- matrix(c(-2.021514e-05, -1.109287e-05, -1.109287e-05, 1.916697e-05), nrow = 2)
test_sandwich <- matrix(c(1.421063e-06, -5.417819e-06, -5.417819e-06, 2.065550e-05), nrow = 2)
fixed_sandwich <- eigen_fix_cpp(sandwich)
eigen_fix_cpp(sandwich)
expect_equal(test_sandwich, fixed_sandwich)
})
mattdwebb/wildclusterboot documentation built on May 23, 2019, 3:08 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
###### TESTS eigen_fix_cpp FUNCTION ######
test_that('eigen_fix_cpp returns correct sandiwhich matrix',{
sandwich <- matrix(c(-2.021514e-05, -1.109287e-05, -1.109287e-05, 1.916697e-05), nrow = 2)
test_sandwich <- matrix(c(1.421063e-06, -5.417819e-06, -5.417819e-06, 2.065550e-05), nrow = 2)
fixed_sandwich <- eigen_fix_cpp(sandwich)
eigen_fix_cpp(sandwich)
expect_equal(test_sandwich, fixed_sandwich)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.