TSR <- function(dat){
dat <- TSR.init(dat)
par <- gmm(dat)
suppressWarnings(vcov <- TSR.vcov(par, dat))
list(par = par, vcov = vcov)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.