context("alpha")
test_that("IATalpha", {
filename <- "iat_small.csv"
allContent <- readLines(filename, encoding = "UTF-8")
allContent <- allContent[-2]
dat <- read.csv(textConnection(allContent), header = TRUE, stringsAsFactors = FALSE)
suppressWarnings(
dat$compatible.crit <- combineIATfourblocks(dat$Q4.RP4, dat$Q18.LP4, dat$Q14.RN7, dat$Q28.LN7)
)
suppressWarnings(
dat$incompatible.crit <- combineIATfourblocks(dat$Q7.RP7, dat$Q21.LP7, dat$Q11.RN4, dat$Q25.LN4)
)
suppressWarnings(
dat$compatible.prac <- combineIATfourblocks(dat$Q3.RP3, dat$Q17.LP3, dat$Q13.RN6, dat$Q27.LN6)
)
suppressWarnings(
dat$incompatible.prac <- combineIATfourblocks(dat$Q6.RP6, dat$Q20.LP6, dat$Q10.RN3, dat$Q24.LN3)
)
clean <- cleanIAT(
dat$compatible.prac, dat$compatible.crit,
dat$incompatible.prac, dat$incompatible.crit
)
alpha <- IATalpha(clean)
alpha_total <- as.numeric(alpha$alpha.total)
expect_equal(round(alpha_total, 4), 0.9444)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.