Nothing
SplitHalf <- function(IATdata, ...)
{
# Split the data in two halves
evenrows <- rep(c(FALSE, FALSE, TRUE, TRUE), length.out = nrow(IATdata))
oddrows <- !evenrows
IATdata1 <- IATdata[evenrows,]
IATdata2 <- IATdata[oddrows,]
# Compute the IAT scores for each half
split1 <- RobustScores(IATdata1, ...)
split2 <- RobustScores(IATdata2, ...)
# compute the split-half correlations
splithalf <- data.frame(
matrix(ncol=2, nrow = 0, dimnames = list(c(), c("algorithm", "splithalf"))))
algos <- names(split1)[names(split1)!= "subject"]
for(i in 1:length(algos))
{
splitdata <- left_join(split1[,c("subject", algos[i])],
split2[,c("subject", algos[i])], by = "subject")
# correlation
splitcor <- cor(select(splitdata, -subject),
use = "pairwise.complete.obs")[1,2]
# spearman-brown prophetic formula
splithalf[i, "algorithm"] <- algos[i]
splithalf[i, "splithalf"] <- 2 * splitcor / (1 + splitcor)
}
splithalf
}
# D2 scores
SplitHalf.D2 <- function(IATdata, ...) SplitHalf(IATdata,
P1 = "fxtrim",
P2 = "ignore",
P3 = "dscore",
P4 = "dist", ...)
# D5 scores
SplitHalf.D5 <- function(IATdata, ...) SplitHalf(IATdata,
P1 = "fxtrim",
P2 = "recode",
P3 = "dscore",
P4 = "dist", ...)
# D6 scores
SplitHalf.D6 <- function(IATdata, ...) SplitHalf(IATdata,
P1 = "fxtrim",
P2 = "recode600",
P3 = "dscore",
P4 = "dist", ...)
# D2SWND scores
SplitHalf.D2SWND <- function(IATdata, ...) SplitHalf(IATdata,
P1 = "wins10",
P2 = "ignore",
P3 = "dscore",
P4 = "nodist", ...)
# D5SWND scores
SplitHalf.D5SWND <- function(IATdata, ...) SplitHalf(IATdata,
P1 = "wins10",
P2 = "recode",
P3 = "dscore",
P4 = "nodist", ...)
# D6SWND scores
SplitHalf.D6SWND <- function(IATdata,...) SplitHalf(IATdata,
P1 = "wins10",
P2 = "recode600",
P3 = "dscore",
P4 = "nodist", ...)
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.