Nothing
`cartan` <- function(C,n=1){
stopifnot(n>0)
as.clifford(c_cartan(
L = terms(C), c = coeffs(C),
m = maxyterm(C),
n = n))
}
`cartan_inverse` <- function(C,n=1){
stopifnot(n>0)
as.clifford(c_cartan_inverse(
L = terms(C), c = coeffs(C),
m = maxyterm(C),
n = n))
}
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.