fourPNO - v1.0.3

tmsalab · Apr 26, 2017 · 41ec57e · 41ec57e
1 parent 13880a9
commit 41ec57e
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,11 +1,11 @@
 Package: fourPNO
 Type: Package
 Title: Bayesian 4 Parameter Item Response Model
-Version: 1.0.2
+Version: 1.0.3
 Date: 2015-11-12
 Authors@R: c(person("Steven Andrew", "Culpepper", role = c("aut","cre"), email =
     "[email protected]"))
-Description: Estimate Lord & Barton's four parameter IRT model with lower and upper asymptotes using Bayesian formulation described by Culpepper (2015).
+Description: Estimate Barton & Lord's four parameter IRT model with lower and upper asymptotes using Bayesian formulation described by Culpepper (2015).
 License: GPL (>= 2)
 Imports: Rcpp
 LinkingTo: Rcpp, RcppArmadillo

diff --git a/man/Gibbs_2PNO.Rd b/man/Gibbs_2PNO.Rd
@@ -55,7 +55,7 @@ Sigma_xi_inv = solve(2*matrix(c(1,0,0,1),2,2))
 burnin = 1000
 #Execute Gibbs sampler. This should take about 15.5 minutes
 out_t <- Gibbs_4PNO(Y_t,mu_xi,Sigma_xi_inv,mu_theta,Sigma_theta_inv,alpha_c,beta_c,alpha_s,
-                    beta_s,burnin,rep(1,J),rep(1,J),gwg_reps=5,chain_length=1000)
+                    beta_s,burnin,rep(1,J),rep(1,J),gwg_reps=5,chain_length=burnin*2)
 
 #summarizing posterior distribution
 OUT = cbind(apply(out_t$AS[,-c(1:burnin)],1,mean),apply(out_t$BS[,-c(1:burnin)],1,mean),

diff --git a/man/Gibbs_4PNO.Rd b/man/Gibbs_4PNO.Rd
@@ -70,7 +70,7 @@ Sigma_xi_inv = solve(2*matrix(c(1,0,0,1),2,2))
 burnin = 1000
 #Execute Gibbs sampler
 out_t <- Gibbs_4PNO(Y_t,mu_xi,Sigma_xi_inv,mu_theta,Sigma_theta_inv,alpha_c,beta_c,alpha_s,
-                    beta_s,burnin,rep(1,J),rep(1,J),gwg_reps=5,chain_length=1000)
+                    beta_s,burnin,rep(1,J),rep(1,J),gwg_reps=5,chain_length=burnin*2)
 
 #summarizing posterior distribution
 OUT = cbind(apply(out_t$AS[,-c(1:burnin)],1,mean),apply(out_t$BS[,-c(1:burnin)],1,mean),