R/tam_acceleration_inits_create_list.R

Defines functions tam_acceleration_inits_create_list

## File Name: tam_acceleration_inits_create_list.R
## File Version: 0.06

tam_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)
}

Try the TAM package in your browser

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

TAM documentation built on May 29, 2024, 2:20 a.m.