```
# NOT RUN {
didacticPlot(1, statistic='chisq', df1=2);
didacticPlot(1, statistic='t', df1=40);
didacticPlot(2.02, statistic='t', df1=40, textMarginFactor=25);
### Two sample t-test for n1 = n2 = 250, showing
### p-value of 5%
# a<-didacticPlot(1.96, statistic='t', df1=498);
# }
```

Run the code above in your browser using DataLab