R/print.summary.speff.R

Defines functions print.summary.speff

print.summary.speff <- function(x,...){
	if (!is.null(x$rsq)){
		cat("\nOptimal models using",x$method,"method:\n")
		if (x$predicted[1]) cat("Control:   ",format(x$formula$control),", R-squared: ",round(x$rsq[1],2),"\n",sep="")
		if (x$predicted[2]) cat("Treatment:  ",format(x$formula$treatment),", R-squared:  ",round(x$rsq[2],2),"\n",sep="")
	}
	cat("\nTreatment effect\n")
	print(x$tab, digits=5, print.gap=2)
}

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.