Nothing
library(personr)
test_that("reversed item numbers", {
out <- test$reversed
expected <- c(
seq(2, 26, 2),
28, 29, 30, 32, 34, 36, 38, 39, 44, 46, 49
)
expect_equal(out, expected)
})
test_that("item numbers under factors", {
ns <- seq(1, length(test$statements), 5)
for (i in ns) {
expect_true(i %in% test$factors$Extroversion)
expect_true((i + 1) %in% test$factors$Agreeableness)
expect_true((i + 2) %in% test$factors$Conscientiousness)
expect_true((i + 3) %in% test$factors$`Emotional Stability`)
expect_true((i + 4) %in% test$factors$`Intellect/Imagination`)
}
})
test_that("score single test", {
rs <- rep(1, 50)
out <- score(rs)$score
# according to https://openpsychometrics.org/tests/IPIP-BFFM/
expected <- c(3, 2.6, 2.6, 4.2, 2.2)
expect_equal(out, expected)
})
test_that("score norm data", {
rs <- as.data.frame(t(rep(1, 50)))
out <- score(rs)[, names(test$factors)]
# according to https://openpsychometrics.org/tests/IPIP-BFFM/
expected <- data.frame(
Extroversion = 3,
Agreeableness = 2.6,
Conscientiousness = 2.6,
`Emotional Stability` = 4.2,
`Intellect/Imagination` = 2.2,
check.names = FALSE
)
expect_equal(out, expected)
})
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.