R/print.ATE.r

Defines functions print.ATE

Documented in print.ATE

print.ATE <- function(x, ...){


if(x$type != "naive" && x$mar2 == "N" && x$eq == 1){

    es <- format(x$Effects, digits = 3, trim = TRUE)

    cat("\n")
    print(es)
    cat("\n")
    
}else{



es <- format(x$res, digits = 3, trim = TRUE)

cat("\nAverage treatment effect with ",(1-x$prob.lev)*100,"% interval:\n\n",sep="")
cat(es[2]," (",es[1],",",es[3],")\n\n",sep="")


     }





invisible(x)

}

Try the GJRM package in your browser

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

GJRM documentation built on Oct. 25, 2024, 5:07 p.m.