### library(metafor); library(testthat); Sys.setenv(NOT_CRAN="true"); Sys.setenv(RUN_VIS_TESTS="true")
context("Checking misc: pdfs of various measures")
source("settings.r")
test_that(".dsmd() works correctly.", {
d <- metafor:::.dsmd(0.5, n1=15, n2=15, theta=0.8, correct=TRUE)
expect_equivalent(d, 0.8208, tolerance=.tol[["den"]])
d <- metafor:::.dsmd(0.5, n1=15, n2=15, theta=0.8, correct=FALSE)
expect_equivalent(d, 0.7757, tolerance=.tol[["den"]])
})
test_that(".dcor() works correctly.", {
d <- metafor:::.dcor(0.5, n=15, rho=0.8)
expect_equivalent(d, 0.2255, tolerance=.tol[["den"]])
})
test_that(".dzcor() works correctly.", {
d <- metafor:::.dzcor(0.5, n=15, rho=0.8)
expect_equivalent(d, 0.1183, tolerance=.tol[["den"]])
d <- metafor:::.dzcor(0.5, n=15, zrho=transf.rtoz(0.8))
expect_equivalent(d, 0.1183, tolerance=.tol[["den"]])
})
rm(list=ls())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.