Nothing
## File Name: tam_mml_se_quick_difference_quotient.R
## File Version: 0.01
tam_mml_se_quick_difference_quotient <- function(ll, h, pweights )
{
sum( pweights * ( ll[,2] + ll[,3] - 2*ll[,1] )/h^2 )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.