Nothing
#' @exportS3Method confint flac
confint.flac <- function(object,parm, ...){
level<-1-object$alpha
levstr<-paste(level*100,"%",sep="")
cimat<-cbind(object$ci.lower,object$ci.upper)
rownames(cimat)<-names(object$ci.lower)
colnames(cimat)<-c(paste("Lower ",levstr,sep=""),paste("Upper ",levstr,sep=""))
return(cimat)
}
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.