4.2-99

alexanderrobitzsch · alexanderrobitzsch · commit 124e4b17e126 · 2024-11-30T11:33:55.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: sirt
 Type: Package
 Title: Supplementary Item Response Theory Models
-Version: 4.2-97
-Date: 2024-11-28 16:55:42
+Version: 4.2-99
+Date: 2024-11-30 11:02:30
 Author: Alexander Robitzsch [aut,cre] (<https://orcid.org/0000-0002-8226-3132>)
 Maintainer: Alexander Robitzsch <robitzsch@ipn.uni-kiel.de>
 Description: 
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -1,5 +1,5 @@
 ## File Name: RcppExports.R
-## File Version: 4.002097
+## File Version: 4.002099
 # Generated by using Rcpp::compileAttributes() -> do not edit by hand
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
diff --git a/R/locpolycor.R b/R/locpolycor.R
@@ -1,14 +1,15 @@
 ## File Name: locpolycor.R
-## File Version: 0.257
+## File Version: 0.271
 
 
 locpolycor <- function(y, data.mod, moderator.grid, h=1.1,
-                    model_thresh, model_polycor, kernel="gaussian",
+                    model_thresh, model_polycor, sampling_weights=NULL,
+                    kernel="gaussian",
                     eps=1e-10)
 {
     #- compute weights
-    llw <- lsem_local_weights(data.mod=x, moderator.grid=moderator.grid, h=h,
-                kernel=kernel)
+    llw <- lsem_local_weights(data.mod=data.mod, moderator.grid=moderator.grid, h=h,
+                kernel=kernel, sampling_weights=sampling_weights)
     weights_grid <- llw$weights
 
     #- estimate thresholds
diff --git a/R/lsem_local_weights.R b/R/lsem_local_weights.R
@@ -1,5 +1,5 @@
 ## File Name: lsem_local_weights.R
-## File Version: 0.219
+## File Version: 0.222
 
 lsem_local_weights <- function(data.mod, moderator.grid, h,
         sampling_weights=NULL, bw=NULL, kernel="gaussian",
diff --git a/R/mcmc.2pno_alg.R b/R/mcmc.2pno_alg.R
@@ -1,5 +1,5 @@
 ## File Name: mcmc.2pno_alg.R
-## File Version: 1.22
+## File Version: 1.241
 
 
 ######################
@@ -117,7 +117,8 @@
                 w1 <- weights / sum(weights )
                 m1 <- colMeans( theta.chain )
                 v1 <- sum( m1^2 * w1 ) - ( sum( m1*w1 ) )^2
-                wM <- matrix( w1, nrow=nrow(theta.chain), ncol=ncol(theta.chain), byrow=TRUE )
+                wM <- matrix( w1, nrow=nrow(theta.chain), ncol=ncol(theta.chain), 
+                                byrow=TRUE )
                 h1 <- rowSums( wM * theta.chain^2 ) - ( rowSums( wM * theta.chain ) )^2
                 h1 <- mean(h1)
                 EAP.rel <- v1 / h1
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-97 (2024-11-28)
+#### GitHub version `sirt` 4.2-99 (2024-11-30)
 
-[![](https://img.shields.io/badge/github%20version-4.2--97-orange.svg)](https://github.com/alexanderrobitzsch/sirt)&#160;&#160;
+[![](https://img.shields.io/badge/github%20version-4.2--99-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/docs/404.html b/docs/404.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -2,5 +2,5 @@ pandoc: 3.1.1
 pkgdown: 2.0.7
 pkgdown_sha: ~
 articles: {}
-last_built: 2024-11-28T16:18Z
+last_built: 2024-11-30T10:23Z
 
diff --git a/docs/reference/locpolycor.html b/docs/reference/locpolycor.html
diff --git a/docs/search.json b/docs/search.json
diff --git a/inst/NEWS b/inst/NEWS
@@ -37,7 +37,7 @@ CHANGELOG sirt
 
 
 ------------------------------------------------------------------------
-VERSIONS sirt 4.2  |  2024-11-28  |  Last: sirt 4.2-97
+VERSIONS sirt 4.2  |  2024-11-30  |  Last: sirt 4.2-99
 ------------------------------------------------------------------------
 
 FIXED * fixed a bug in handling sufficient statistics in
diff --git a/man/locpolycor.Rd b/man/locpolycor.Rd
@@ -1,5 +1,5 @@
 %% File Name: locpolycor.Rd
-%% File Version: 0.07
+%% File Version: 0.082
 
 \name{locpolycor}
 \alias{locpolycor}
@@ -13,7 +13,7 @@ continuous moderator variable \eqn{x}.
 }
 \usage{
 locpolycor(y, data.mod, moderator.grid, h=1.1, model_thresh, model_polycor,
-     kernel="gaussian", eps=1e-10)
+     sampling_weights=NULL, kernel="gaussian", eps=1e-10)
 }
 %- maybe also 'usage' for other objects documented here.
 \arguments{
@@ -38,6 +38,7 @@ Model for thresholds: can be \code{'const'} (constant function) or \code{'lin'}
 Model for polychoric correlations: can be \code{'const'} (constant function) or
 \code{'lin'} (linear function)
 }
+\item{sampling_weights}{Optional vector of sampling weights}
   \item{kernel}{
 Used kernel function, see \code{\link{lsem_local_weights}}
 }
diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -1,5 +1,5 @@
 //// File Name: RcppExports.cpp
-//// File Version: 4.002097
+//// File Version: 4.002099
 // Generated by using Rcpp::compileAttributes() -> do not edit by hand
 // Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
