fis.cis <- function(obj, nboot){
res <- boot.ppfis(obj, nboot = nboot)
res <- data.frame(sapply(res[[2]], c))
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.