Nothing
### kfringe.R
###
### Compute the fringe of a knowledge state
###
kfringe <- function(kst, state) {
## Check parameters
if (!inherits(kst, "kstructure"))
stop(sprintf("%s must be of class %s.", dQuote("kst"), dQuote("kstructure")))
if (is.null(state)) {
f <- list()
i <- 1
for (s in kst) {
x <- kfringe(kst, s)
f[[i]] <- x
i <- i + 1
}
return(f)
}
if (!inherits(state, "set"))
stop(sprintf("%s must be of class %s.", dQuote("state"), dQuote("set")))
if (!set_contains_element(kst, state))
stop(sprintf("Specified state is no element of %s", dQuote("x")))
n <- kneighbourhood(kst, state)
f <- set()
for (i in n) {
f <- set_union(f, set_symdiff(i, state))
}
return(f)
}
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.