R/linking_haberman_bisquare_weight.R

Defines functions linking_haberman_bisquare_weight

## File Name: linking_haberman_bisquare_weight.R
## File Version: 0.02

linking_haberman_bisquare_weight <- function(x, cutoff)
{
    wgt_adj <- ( 1 - ( x / cutoff )^2 )^2
    wgt_adj <- (abs(x)<=cutoff)*wgt_adj
    return(wgt_adj)
}

Try the sirt package in your browser

Any scripts or data that you put into this service are public.

sirt documentation built on May 29, 2024, 8:43 a.m.