Period <- setClass(
# Set the name for the class
"Period",
# Define the slots
slots = c(
tMin = "character",
tMax = "character",
tZone = "character"
),
prototype=list(
tMin = "1900-01-01 00:00:01",
tMax = "1900-01-01 00:00:02",
tZone = "BRST"
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.