Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library(kstMatrix)
library(igraph)
library(grDevices)
library(sets)
library(pks)
## -----------------------------------------------------------------------------
kmbasis(xpl$space)
## -----------------------------------------------------------------------------
kmunionclosure(xpl$basis)
## -----------------------------------------------------------------------------
kmsurmiserelation(xpl$space)
## -----------------------------------------------------------------------------
kmunionclosure(t(kmsurmiserelation(xpl$space)))
## -----------------------------------------------------------------------------
kmsurmisefunction(xpl$space)
## -----------------------------------------------------------------------------
sf <- kmsurmisefunction(xpl$space)
kmsf2basis(sf)
## -----------------------------------------------------------------------------
kmiswellgraded(xpl$space)
## -----------------------------------------------------------------------------
x <- matrix(c(0,0,0, 1,0,0, 1,1,1), nrow = 3, byrow = TRUE)
kmnotions(x)
## -----------------------------------------------------------------------------
x <- matrix(c(0,0,0, 1,0,0, 1,1,1), nrow = 3, byrow = TRUE)
kmeqreduction(x)
## -----------------------------------------------------------------------------
kmminimalspace(5)
## -----------------------------------------------------------------------------
kmmaximalspace(4)
## -----------------------------------------------------------------------------
kmdist(xpl$data, xpl$space)
## -----------------------------------------------------------------------------
kmvalidate(xpl$data, xpl$space)
## -----------------------------------------------------------------------------
kmsimulate(xpl$space, 10, 0.2, 0.1)
kmsimulate(xpl$space, 10, c(0.2, 0.25, 0.15, 0.2), c(0.1, 0.15, 0.05, 0.1))
kmsimulate(xpl$space, 10, c(0.2, 0.25, 0.15, 0.2), 0)
## -----------------------------------------------------------------------------
kmneighbourhood(c(1,1,0,0), xpl$space)
## -----------------------------------------------------------------------------
kmfringe(c(1,0,0,0), xpl$space)
## -----------------------------------------------------------------------------
kmsymmsetdiff(c(1,0,0), c(1,1,0))
## -----------------------------------------------------------------------------
kmsetdistance(c(1,0,0), c(1,1,0))
## -----------------------------------------------------------------------------
kmhasse(xpl$space, horizontal = FALSE)
probability_vec <- (0:8)/8
colorvec <- kmcolors(probability_vec, cm.colors)
kmhasse(xpl$space, horizontal = TRUE, colors = colorvec)
## -----------------------------------------------------------------------------
kmbasisdiagram(xpl$basis, horizontal=FALSE)
## -----------------------------------------------------------------------------
summary(cad)
## -----------------------------------------------------------------------------
summary(readwrite)
## -----------------------------------------------------------------------------
summary(fractions)
## -----------------------------------------------------------------------------
summary(xpl)
xpl$basis
xpl$space
xpl$data
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.