Nothing
###############################################################################
# AlphaPermute: #
# #
# Given the number of attributes, generate all the possible ability patterns. #
# #
# Input: #
# (1) dim: number of attributes #
# #
# Output: #
# (1) alpha: a matrix of all the possible ability patterns with rows are #
# different patterns and columns are attributes. #
###############################################################################
AlphaPermute <- function(dim) {
alpha <- matrix(c(0, 1), 2, 1)
for (i in 1:(dim - 1)) {
alpha <- rbind(alpha, alpha)
alpha <- cbind(alpha, c(rep(0, 2 ^ i), rep(1, 2 ^ i)))
}
return(alpha)
}
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.