###################################################
### code chunk number 24: setargs4
###################################################
n4 <- ncol(dat4)
Z4 <- as.factor(rep(1, n4))
R.model4 <- matrix(list(0), n4, n4)
diag(R.model4) <- list("1", "2", "2", "2", "2", "3", "4")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.