```r
mt<-filter(ms,grepl("Beta",Parameter))
ggplot(data=mt,aes(x=mt$value,col=Parameter,fill=Parameter)) + geom_density(alpha=0.2)
```

<img src="004a_anova_files/figure-html/unnamed-chunk-36-1.png" width="672" />