`ans_pval` (`actual`) not equal to `soln_pval` (`expected`).

  `actual`: 0.70
`expected`: 0.73

test_that("eummd, univariate, no pval, positive beta", {
ansList <- eummd(x=X, y=Y, beta=beta, pval=FALSE, seednum=seednum, numperm=numperm)
# pval will be different, because uses different permutations
test_that("eummd, univariate, no pval", {
ansList <- eummd(x=X, y=Y, beta=beta, pval=TRUE, seednum=seednum, numperm=numperm)
test_that("eummd, univariate, pval alternative is two.sided", {
ansList <- eummd(x=X, y=Y, beta=beta, pval=TRUE, seednum=seednum,
test_that("eummd, univariate, pval, two.sided 2", {
test_that("eummd, univariate, pval, greater 2, allowzeropval", {

"eummd, univariate, no pval, positive beta"
"eummd, univariate, pval alternative is two.sided"
"eummd, univariate, pval, greater 2, allowzeropval"

eummd, univariate, pval alternative is two.sided