Nothing
#context("Utility functions")
n <- 100
x <- runif(n)
y <- runif(n)
fit <- qad(x,y, print = FALSE, resolution = 10)
test_that("coef.qad", {
expect_s3_class(fit, "qad")
expect_equal(unname(coef(fit)),c(fit$results$coef, fit$results$p.values))
})
test_that("summary.qad", {
test <- summary(fit)
expect_equal(test$SampleSize, n)
expect_equal(test$resolution, 10)
expect_equal(test$dependence_values, fit$results)
expect_output(summary(fit))
})
test_that("plot.qad", {
expect_equal(class(plot(fit)), c("gg", "ggplot"))
expect_equal(class(plot(fit, addSample = TRUE)), c("gg", "ggplot"))
expect_equal(class(plot(fit, copula = TRUE)), c("gg", "ggplot"))
expect_equal(class(plot(fit, density = TRUE)), c("gg", "ggplot"))
expect_equal(class(plot(fit, margins = TRUE)), c("gg", "ggplot"))
expect_equal(class(plot(fit, panel.grid = FALSE)), c("gg", "ggplot"))
})
test_that("plot_density", {
expect_equal(class(plot_density(fit$mass_matrix)), c("gg", "ggplot"))
})
test_that("pqad", {
expect_type(pqad(0.2, 100, R = 10, resolution = 10), "double")
expect_type(qqad(0.2, 100, R = 10, resolution = 10), "double")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.