# S3 methods ############################################
# add <- function(...) UseMethod("add")
# getData <- function(...) UseMethod("getData")
# read <- function(...) UseMethod("read")
# write <- function(...) UseMethod("write")
# report <- function (...) UseMethod("report")
# add_set <- function(x, ...) UseMethod("add_set")
# create_data_frame <- function(x, ...) UseMethod("create_data_frame")
# prepare <- function(x, ...) UseMethod("prepare")
#compare <- function (a,b, ...) UseMethod("compare")
# gui <- function (x, ...) UseMethod("gui")
# S4 methods ############################################
# setGeneric("milestoneYears", function(start, interval) standardGeneric("milestoneYears"))
# setGeneric("setMilestoneYears", function(obj, start, interval) standardGeneric("setMilestoneYears"))
# setGeneric("getMilestoneYears", function(obj) standardGeneric("getMilestoneYears"))
# setGeneric("setTimeSlices", function(obj, ...) standardGeneric("setTimeSlices"))
# setGeneric('addMultipleSet', function(obj, dimSets) standardGeneric("addMultipleSet"))
# setGeneric('levcost', function(obj, ...) standardGeneric("levcost"))
# Internal S4 methods ####
# setGeneric('.dat2par', function(obj, data) standardGeneric(".dat2par"))
# setGeneric(".obj2modInp", function(obj, app, approxim) standardGeneric(".obj2modInp"))
# setGeneric(".add2set", function(obj, app, approxim) standardGeneric(".add2set"))
# setGeneric('.interpolation', function(obj, parameter, defVal, ...) standardGeneric("interpolation"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.