## ----setup, include=FALSE-----------------------------------------------------
set.seed(0)
library("clifford")
options(rmarkdown.html_vignette.check_title = FALSE)
knitr::opts_chunk$set(echo = TRUE)
knit_print.function <- function(x, ...){dput(x)}
registerS3method(
  "knit_print", "function", knit_print.function,
  envir = asNamespace("knitr")
)

## ----out.width='15%', out.extra='style="float:right; padding:10px"',echo=FALSE----
knitr::include_graphics(system.file("help/figures/clifford.png", package = "clifford"))
knitr::include_graphics(system.file("help/figures/lorentz.png", package = "lorentz"))

## ----showsigdef---------------------------------------------------------------
signature

## ----label=sig34--------------------------------------------------------------
signature(1,2)

## ----showp--------------------------------------------------------------------
c(drop(e(1)^2),drop(e(2)^2),drop(e(3)^2))

## ----showg4-------------------------------------------------------------------
c(drop(e(4)^2),drop(e(100)^2))

## ----usemaxdim----------------------------------------------------------------
options(maxdim = 4)

## ----showerror, error=TRUE----------------------------------------------------
try({
c(drop(e(1)^2),drop(e(2)^2),drop(e(3)^2),drop(e(4)^2))
e(5)
})

## ----showsig------------------------------------------------------------------
signature()

## ----showinfinitesig----------------------------------------------------------
options(maxdim=NULL)
signature(Inf)
signature()

## ----dputinfinitesig----------------------------------------------------------
dput(signature())