plotDist("chisq", params = list(df = 4), type = c("h", "l"), groups= x > 3.425, lty = 1)
ladd(grid.text("3.425", 3.425, .175, default.units = "native", hjust = 0))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.