Defines functions summary.speffSurv

Documented in summary.speffSurv

summary.speffSurv <- function(object,...){
	ci <- object$beta + tcrossprod(sqrt(object$varbeta)*qnorm(1-(1-object$conf.level)/2),c(-1,1))
	pval <- 2*pnorm(-abs(object$beta)/sqrt(object$varbeta))
	Tab <- cbind(object$beta, sqrt(object$varbeta), ci, pval)
	rownames(Tab) <- c("Prop Haz","Speff")
	colnames(Tab) <- c("Log HR","SE","LowerCI","UpperCI","p")
	out <- list(tab=Tab,method=object$method,formula=object$formula,fixed=object$fixed)
	class(out) <- "summary.speffSurv"

Try the speff2trial package in your browser

Any scripts or data that you put into this service are public.

speff2trial documentation built on May 29, 2017, 12:36 p.m.