## Test set expressions
context("Getting expressions")
data(mod1SMS)
smsTest <- mod1SMS
lapply(c(TRUE, FALSE), function(s){
lapply(c(TRUE, FALSE), function(z){
lapply(optimr:::implemFormats, function(y) {
sapply(SMSsets(smsTest)$id, function(x) {
getExpr(smsTest, "sets", x, y, z, SET = s)
})
})
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.