4.2-2

alexanderrobitzsch · Feb 15, 2024 · e36a297 · e36a297
1 parent a4bff44
commit e36a297
Show file tree

Hide file tree

Showing 10 changed files with 21 additions and 18 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: sirt
 Type: Package
 Title: Supplementary Item Response Theory Models
-Version: 4.2-1
-Date: 2024-02-06 09:12:35
+Version: 4.2-2
+Date: 2024-02-15 17:09:03
 Author: Alexander Robitzsch [aut,cre] (<https://orcid.org/0000-0002-8226-3132>)
 Maintainer: Alexander Robitzsch <[email protected]>
 Description: 

diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -1,5 +1,5 @@
 ## File Name: RcppExports.R
-## File Version: 4.002001
+## File Version: 4.002002
 # Generated by using Rcpp::compileAttributes() -> do not edit by hand
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 

diff --git a/R/lsem.permutationTest.R b/R/lsem.permutationTest.R
@@ -1,5 +1,5 @@
 ## File Name: lsem.permutationTest.R
-## File Version: 0.591
+## File Version: 0.592
 
 
 #*** permutation test for LSEM model
@@ -33,6 +33,7 @@ lsem.permutationTest <- function( lsem.object, B=1000, residualize=TRUE,
     arglist$standardized <- lsem.object$standardized
     arglist$standardized_type <- lsem.object$standardized_type
     arglist$lavaan_fct <- lsem.object$lavaan_fct
+    arglist$sufficient_statistics <- lsem.object$sufficient_statistics
     use_lavaan_survey <- FALSE
     arglist$pseudo_weights <- lsem.object$pseudo_weights
 

diff --git a/R/xxirt.R b/R/xxirt.R
@@ -1,5 +1,5 @@
 ## File Name: xxirt.R
-## File Version: 1.107
+## File Version: 1.111
 
 
 #--- user specified item response model
@@ -51,7 +51,7 @@ xxirt <- function( dat, Theta=NULL, itemtype=NULL, customItems=NULL,
         partable <- xxirt_createParTable( dat=dat, itemtype=itemtype,
                             customItems=customItems )
     }
-
+    
     # process partable and itemtype
     res <- xxirt_proc_ParTable( itemtype=itemtype, partable=partable, items=items )
     itemtype <- res$itemtype
@@ -74,7 +74,7 @@ xxirt <- function( dat, Theta=NULL, itemtype=NULL, customItems=NULL,
     #*** starting values item parameters
     par0 <- xxirt_partable_extract_freeParameters( partable=partable )
     par1 <- xxirt_ThetaDistribution_extract_freeParameters( customTheta=customTheta )
-
+    
     #***
     if (is.null(customTheta$some_bound)){
         customTheta$some_bound    <- FALSE
@@ -118,7 +118,7 @@ xxirt <- function( dat, Theta=NULL, itemtype=NULL, customItems=NULL,
             em_args$verbose2 <- FALSE
             em_args$verbose3 <- FALSE
         }
-
+        
         #--- run EM algorithm
         em_out <- res <- do.call(what=xxirt_em_algorithm, args=em_args)
 

diff --git a/R/xxirt_em_algorithm.R b/R/xxirt_em_algorithm.R
@@ -1,5 +1,5 @@
 ## File Name: xxirt_em_algorithm.R
-## File Version: 0.079
+## File Version: 0.087
 
 xxirt_em_algorithm <- function(maxit, verbose1, verbose2, verbose3, disp, item_list,
             items, Theta, ncat, partable, partable_index, dat, resp_index,

diff --git a/R/xxirt_proc_ParTable.R b/R/xxirt_proc_ParTable.R
@@ -1,5 +1,5 @@
 ## File Name: xxirt_proc_ParTable.R
-## File Version: 0.457
+## File Version: 0.463
 
 #-- process parameter table
 xxirt_proc_ParTable <- function( itemtype, partable, items )
@@ -22,7 +22,7 @@ xxirt_proc_ParTable <- function( itemtype, partable, items )
     partable[ ! partable$est, 'prior' ] <- NA
     #*** list with parameter table indices
     partable$parfree <- 1*partable$est
-    partable_index <- as.list( 1:I )
+    partable_index <- as.list( 1:I )    
     for (ii in 1:I){
         partable_index[[ii]] <- which( partable$itemnr==ii )
     }

diff --git a/README.md b/README.md
@@ -22,9 +22,9 @@ The CRAN version can be installed from within R using:
 utils::install.packages("sirt")
 ```
 
-#### GitHub version `sirt` 4.2-1 (2024-02-06)
+#### GitHub version `sirt` 4.2-2 (2024-02-15)
 
-[![](https://img.shields.io/badge/github%20version-4.2--1-orange.svg)](https://github.com/alexanderrobitzsch/sirt)&#160;&#160;
+[![](https://img.shields.io/badge/github%20version-4.2--2-orange.svg)](https://github.com/alexanderrobitzsch/sirt)&#160;&#160;
 
 The version hosted [here](https://github.com/alexanderrobitzsch/sirt) is the development version of `sirt`. 
 The GitHub version can be installed using `devtools` as:

diff --git a/inst/NEWS b/inst/NEWS
@@ -37,10 +37,12 @@ CHANGELOG sirt
 
 
 ------------------------------------------------------------------------
-VERSIONS sirt 4.2  |  2024-02-06  |  Last: sirt 4.2-1
+VERSIONS sirt 4.2  |  2024-02-15  |  Last: sirt 4.2-2
 ------------------------------------------------------------------------
 
-xxx   * ...
+FIXED * fixed a bug in handling sufficient statistics in
+        lsem.permutationTest() (thanks to @martinabader, #22)
+
 
 
 DATA  * included/modified datasets: ---

diff --git a/man/data.pisaMath.Rd b/man/data.pisaMath.Rd
@@ -1,5 +1,5 @@
 %% File Name: data.pisaMath.Rd
-%% File Version: 0.14
+%% File Version: 0.15
 
 \name{data.pisaMath}
 \alias{data.pisaMath}
@@ -10,7 +10,7 @@ Dataset PISA Mathematics
 \description{
 This is an example PISA dataset of reading items from the PISA
 2009 study of students from Austria. The
-dataset contains 565 students who worked on the 11 reading items
+dataset contains 565 students who worked on the 11 mathematics items
 from item cluster M3.
 }
 \usage{

diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -1,5 +1,5 @@
 //// File Name: RcppExports.cpp
-//// File Version: 4.002001
+//// File Version: 4.002002
 // Generated by using Rcpp::compileAttributes() -> do not edit by hand
 // Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393