context("Correlation -- Verification project")
# https://jasp-stats.github.io/jasp-verification-project/regression.html#correlation
test_that("Correlation Table results match R, SPSS, SAS and MiniTab", {
options <- jaspTools::analysisOptions("Correlation")
options$variables <- list("X", "Y")
options$pearson <- TRUE
options$kendallsTauB <- TRUE
options$spearman <- TRUE
options$ci <- TRUE
options$significanceFlagged <- FALSE
results <- jaspTools::runAnalysis("Correlation", "Correlation.csv", options)
# Main table
resultTable <- results$results$mainTable$data
jaspTools::expect_equal_tables(
"test"=resultTable,
"ref"=list("<unicode>", "<unicode>", "<unicode>", "<unicode>", "<unicode>",
"<unicode>", "<unicode>", "<unicode>", "<unicode>", "<unicode>",
"<unicode>", "<unicode>", 0.612084493088406, 0.517248967986794,
3.58243017602502e-16, 0.706920018190018, 0.806436535963374,
0.720084338869883, 5.11889396069723e-22, 0.868190969147739,
0.773033328906496, 0.674464778571329, 2.77257960858756e-19,
0.844527512492866, "X", "", "", "", "", "", "", "", "", "",
"", "", "", "<unicode>", "<unicode>", "<unicode>", "<unicode>",
"<unicode>", "<unicode>", "<unicode>", "<unicode>", "<unicode>",
"<unicode>", "<unicode>", "<unicode>", "Y"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.