R/irtc_acceleration_inits_create_list.R

In IRTC: Marginal Maximum Likelihood Estimation for Item Response Models

# IRTC
# Copyright (C) 2026 WEIAN DATA TECH (Beijing) Co., Ltd.
# SPDX-License-Identifier: GPL-2.0-or-later
# See inst/COPYRIGHTS for licensing details.

## File Name: irtc_acceleration_inits_create_list.R

irtc_acceleration_inits_create_list <- function(acceleration, parm, w=.35,
        w_max=.95, beta_new=0, beta_old=0)
{
    xsi_acceleration <- list( "acceleration"=acceleration, "w"=w,
                            "w_max"=w_max,
                            parm_history=cbind( parm, parm, parm ),
                            "beta_new"=beta_new,
                            "beta_old"=beta_old
                                )
    return(xsi_acceleration)
}