Nothing

```
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)
}
```

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

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.