## File Name: sirt_digamma1.R
## File Version: 0.01
#-- derivative of digamma function
sirt_digamma1 <- function(x, h=1e-3)
{
( digamma(x+h) - digamma(x-h) ) / (2*h)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.