setClass("finite", representation(n="numeric", "VIRTUAL"))
setClass("transfinite", representation(n="numeric", "VIRTUAL"))
setClass(Class="aleph", contains=c("transfinite", "numeric"))
setClass(Class="beth", contains=c("transfinite", "numeric"))
setClassUnion("cardinal", c("finite", "transfinite"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.