tests/testthat/test_get_eloscores.R
In markhwhiteii/bwsTools: Tools for Case 1 Best-Worst Scaling (MaxDiff) Designs
context("Calculate Elo score for an individual")
library(bwsTools)
test_that("K is working as it should", {
res <- get_eloresults(indiv[indiv$id == 2, ], "block", "label", "value")
set.seed(1839); res1 <- get_eloscores(res, K = 1, iter = 1)
set.seed(1839); res2 <- get_eloscores(res, K = 100, iter = 1)
expect_true(var(res1$elo) < var(res2$elo))
})
markhwhiteii/bwsTools documentation built on July 5, 2021, 10:08 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("Calculate Elo score for an individual")
library(bwsTools)
test_that("K is working as it should", {
res <- get_eloresults(indiv[indiv$id == 2, ], "block", "label", "value")
set.seed(1839); res1 <- get_eloscores(res, K = 1, iter = 1)
set.seed(1839); res2 <- get_eloscores(res, K = 100, iter = 1)
expect_true(var(res1$elo) < var(res2$elo))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.