Nothing
"summary.binomRRci"<-function(object,...)
{
aaargs<-list(...)
if(is.null(aaargs$digits))
{digits<-4}
else
{digits<-aaargs$digits}
cat("Summary statistics: \n")
summarystat<-rbind("number of successes"=object$x,
"number of trials"=object$n,
"estimated success probability"=round(object$x/object$n, digits=digits))
colnames(summarystat)<-object$names
print(summarystat, digits=digits)
cat("\n Contrast matrix: \n")
print(object$cmat, digits=digits)
if(object$dist=="MVN")
{
cat("\n The estimated correlation matrix of the contrasts is: \n")
print(object$corrmat, digits=digits)
}
cat("\n")
print(object, digits=digits)
invisible(object)
}
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.