R/confint.flic.R

In logistf: Firth's Bias-Reduced Logistic Regression

#' @exportS3Method confint flic
confint.flic <- 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)
}