Nothing
f.catch0 <- function(mcall, defaults){
## EXTRACT CALL
.mcall <- lapply(mcall[-1], function(x) eval.parent(x, 4))
#
## STANDARD haplin DEFAULTS
.defaults.hap <- formals(haplin0)
#
## OVERRIDE STANDARD haplin DEFAULTS
.defaults.hap[names(defaults)] <- defaults
#
## CHECK CALL FOR CONSISTENCY, SET OTHER DEFAULTS, ETC.
.info <- f.check.pars0(.mcall, .defaults.hap)
#####################
#
##
return(.info)
}
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.