lookupRule | R Documentation |
internal
lookupRule(rules, strList)
rules |
|
strList |
rules that matched to strList
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function (rules, strList) { ix <- grep(strList[1], rules[, "condition"]) if (length(strList) >= 2) { for (i in 2:length(strList)) { ix2 <- grep(strList[i], rules[, "condition"]) ix <- intersect(ix, ix2) } } if (length(ix) >= 1) return(rules[ix, , drop = FALSE]) if (length(ix) == 0) return(NULL) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.