# S4 Class Definitions for testing
setClass(
Class = "KingOfTheFields"
)
setClass(
Class = "KingOfTheTown"
)
setClass(
Class = "KingOfTheEarth",
contains = c("KingOfTheTown", "KingOfTheFields")
)
setClass(
Class = "KingOfTheSky",
contains = c("KingOfTheEarth")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.