R/summary.speff.R

Defines functions summary.speff

Documented in summary.speff

summary.speff <- function(object,...){
	ci <- object$coef[,3] + tcrossprod(sqrt(object$varbeta)*qnorm(1-(1-object$conf.level)/2),c(-1,1))
	pval <- 2*pnorm(-abs(object$coef[,3])/sqrt(object$varbeta))
	Tab <- cbind(object$coef[,3], sqrt(object$varbeta), ci, pval)
	rownames(Tab) <- c("Naive","Speff")
	colnames(Tab) <- c(ifelse(object$endpoint=="quantitative","Mean Diff","Log OR"),"SE","LB","UB","p")
	out <- list(tab=Tab,method=object$method,rsq=object$rsq,formula=object$formula,predicted=object$predicted)
	class(out) <- "summary.speff"
	out
}

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.