Nothing
## Mining for contexts
setMethod("cmine", signature=c(object="PSTf"),
def=function(object, l, pmin, pmax, state, as.tree=FALSE, delete=TRUE) {
if (missing(l)) {
l <- 1:length(object)
}
res <- list()
for (i in l) {
if (!missing(pmin)) {
tmp <- lapply(object[[i]], node.mine, pmin=pmin, state=state)
} else if (!missing(pmax)) {
tmp <- lapply(object[[i]], node.mine, pmax=pmax, state=state)
}
tmp <- tmp[!unlist(lapply(tmp, is.null))]
res <- c(res, tmp)
}
## sorting results
if (length(res)> 0) {
p <- unlist(lapply(res, function(x) { rowSums(x@.Data[,state, drop=FALSE]) }))
if (!missing(pmin)) {
res <- res[order(p)]
} else if (!missing(pmax)) {
res <- res[order(p, decreasing=TRUE)]
}
}
if (as.tree) {
res <- prune(object, keep=names(res), delete=delete)
} else {
if (has.cdata(object)) {
cdata <- object@cdata
A <- alphabet(cdata)
cpal <- cpal(cdata)
stlab <- stlab(cdata)
res <- new("cprobd.list", res, alphabet=A, cpal=cpal, labels=stlab)
} else {
res <- new("cprobd.list", res, alphabet=object@alphabet, cpal=object@cpal,
labels=object@labels)
}
}
return(res)
}
)
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.