build.design <- function(vec, des = NULL, start = 2) {
tmp <- matrix(0, length(vec), nlevels(vec) - start +
1)
for (i in 1:ncol(tmp)) {
tmp[, i] <- vec == levels(vec)[i + start -
1]
}
cbind(des, tmp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.