R/noharm_sirt_number_estimated_parameters.R

Defines functions noharm_sirt_number_estimated_parameters

## File Name: noharm_sirt_number_estimated_parameters.R
## File Version: 0.03

noharm_sirt_number_estimated_parameters <- function(I, Fpatt, Ppatt, Psipatt)
{
    Nestpars <- list(total=0)
    Nestpars$total <- Nestpars$thresh <- I
    Nestpars$F <- sum( Fpatt > 0 )
    Nestpars$total <- Nestpars$total + Nestpars$F
    Nestpars$P <- sum( diag(Ppatt)==1 ) / 2 +  sum( Ppatt==1 ) / 2
    Nestpars$total <- Nestpars$total + Nestpars$P
    Nestpars$Psi <- 1/2 * sum( Psipatt==1 )
    Nestpars$total <- Nestpars$total + Nestpars$Psi
    #--- output
    return(Nestpars)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.