Nothing
## ----eval=FALSE, include=TRUE-------------------------------------------------
# # constructor takes any number of arguments arg1, arg2, and so on
# # and it must use the elipsis ... as final argument
# new_simdesign <- function(arg1, arg2, ...) {
#
# # define generator function in one argument
# generator = function(n) {
# # implement data generating mechanism
# # make use of any argument passed to the new_simdesign constructor
# # make sure it returns a two-dimensional array
# }
#
# # setup simdesign subclass
# # make sure to pass generator function and ...
# # all other information passed is optional
# dsgn = simdesign(
# generator = generator,
# arg1 = arg1,
# arg2 = arg2,
# ...
# )
#
# # extend the class attribute
# class(dsgn) = c("binomial_simdesign", class(dsgn))
#
# # return the object
# dsgn
# }
## ----echo=FALSE---------------------------------------------------------------
sessionInfo()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.