## File Name: linking_haberman_huber_weight.R
## File Version: 0.04
linking_haberman_huber_weight <- function(x, cutoff)
{
eps <- 1e-10
wgt_adj <- (abs(x) >=cutoff)*cutoff / abs(x) + (abs(x) < cutoff)*1
return(wgt_adj)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.