Nothing
## File Name: xxirt_irf_lca_init_par.R
## File Version: 0.04
xxirt_irf_lca_init_par <- function(K, ncat, random_sd=0, rg_val=1.5)
{
v1 <- NULL
for (cc in 2L:ncat){
par <- rg_val*seq( -1, 1, length=K )
names(par) <- paste0('b',1:K, '_Cat',cc-1)
par <- par + stats::rnorm(K, sd=random_sd)
v1 <- c(v1, par)
}
if (ncat==2){
names(v1) <- paste0('b',1:K)
}
return(v1)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.