3.0-26

alexanderrobitzsch · Nov 12, 2018 · e147270 · e147270
1 parent 348fc27
commit e147270
Show file tree

Hide file tree

Showing 6 changed files with 15 additions and 11 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: sirt
 Type: Package
 Title: Supplementary Item Response Theory Models
-Version: 3.0-21
-Date: 2018-10-18 16:04:25
+Version: 3.0-26
+Date: 2018-11-12 17:47:33
 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: 3.000021
+## File Version: 3.000026
 # Generated by using Rcpp::compileAttributes() -> do not edit by hand
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 

diff --git a/R/rasch.copula2_aux.R b/R/rasch.copula2_aux.R
@@ -1,5 +1,5 @@
 ## File Name: rasch.copula2_aux.R
-## File Version: 1.21
+## File Version: 1.22
 
 
 
@@ -734,8 +734,9 @@ person.parameter.rasch.copula <- function( raschcopula.object, numdiff.parm=.001
                     "converged"=1*(ind1==1),
                 "score"=rowSums(dat2), "max"=rowSums( dat2.resp),
                  "theta.dep"=theta0, "theta.ind"=theta0i )
-        res$setheta.dep <- sqrt( - 1 / d2d )
-        res$setheta.ind <- sqrt( - 1 / d2i )
+        eps <- 1E-7
+        res$setheta.dep <- sqrt( - 1 / abs(d2d+eps) )
+        res$setheta.ind <- sqrt( - 1 / abs(d2i+eps) )
         res$setheta.dep[ is.na(theta0i) ] <- NA
         res$setheta.ind[ is.na(theta0i) ] <- NA
         res$seinflat <- res$setheta.dep / res$setheta.ind

diff --git a/README.md b/README.md
@@ -18,9 +18,9 @@ The CRAN version can be installed from within R using:
 utils::install.packages("sirt")
 ```
 
-#### GitHub version `sirt` 3.0-21 (2018-10-18)
+#### GitHub version `sirt` 3.0-26 (2018-11-12)
 
-[![](https://img.shields.io/badge/github%20version-3.0--21-orange.svg)](https://github.com/alexanderrobitzsch/sirt)&#160;&#160;
+[![](https://img.shields.io/badge/github%20version-3.0--26-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
@@ -35,7 +35,7 @@ CHANGELOG sirt
 
 
 ------------------------------------------------------------------------
-VERSIONS sirt 3.0  |  2018-10-18  |  Last: sirt 3.0-21
+VERSIONS sirt 3.0  |  2018-11-12  |  Last: sirt 3.0-26
 ------------------------------------------------------------------------
 
 NOTE  * included estimation details of btm() function 
@@ -49,7 +49,10 @@ NOTE  * added argument 'save.gamma.testlet' in mcmc.3pno.testlet()
         (requested by Vladimir Volokhonsky, issue #4)     
 NOTE  * corrected internet address for DIMTEST software in ?conf.detect
         (thanks to Julius Fenn)
-
+FIXED * fixed numerical problems in person.parameter.rasch.copula()
+        (detected by CRAN checks of examples for r-devel-windows-ix86+x86_64;
+        https://cran.r-project.org/web/checks/check_results_sirt.html)
+
 
 DATA  * included/modified datasets: ---
 EXAMP * included/modified examples: rasch.jml (1)

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