Nothing
print.iccbin <- function(x, ...){
feat <- x$features
cat("\nIntra-class correlation")
cat("\nMethod = ", feat["method"], ", nAGQ = ", feat["nAGQ"], ", M = ", feat["M"],
", Rho: ", x$rho, "\n\n", sep = "")
}
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.