Simple comparison of two BDMethod objects based on meta data.
compareBDMethod(x, y)
x | a |
---|---|
y | a |
logical value indicating whether the two objects produced the same meta data.
bdm1 <- BDMethod(stats::rnorm, params = rlang::quos(n = 100)) bdm2 <- BDMethod(stats::rt, params = rlang::quos(n = 100, df = 1)) compareBDMethod(bdm1, bdm2)#> $f #> [1] FALSE #> #> $version #> [1] TRUE #> #> $params #> [1] FALSE #> #> $meta #> [1] TRUE #> #> $post #> [1] TRUE #>