#' Manifold, i.e. a topological space that locally resembles
#' Euclidean space near each point.
Manifold <- setRefClass("Manifold",
fields = "dimension",
methods = list(
initialize = function(dimension){
stopifnot(dimension %% 1 == 0)
stopifnot(dimension > 0)
.self$dimension <- dimension
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.