nest_Total <- function(.l, .NestedEquation){
if(is.null(names(.l))){
stop(".l must have names!")
}
list2env(.l, envir = environment())
eval(parse(text = .NestedEquation))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.