R/linking_haberman_huber_weight.R

Defines functions linking_haberman_huber_weight

## 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)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.