hmcdm 2.1.2

Author: sunbeomk

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: hmcdm
 Type: Package
 Title: Hidden Markov Cognitive Diagnosis Models for Learning
-Version: 2.1.1
+Version: 2.1.2
 Authors@R: c(
  person("Susu", "Zhang", email = "szhan105@illinois.edu", role = c("aut")),
  person("Shiyu", "Wang", email = "swang44@uga.edu", role = c("aut")),

NEWS.md

@@ -1,3 +1,9 @@
+# hmcdm 2.1.2
+
+- Release of `hmcdm` package version 2.1.2.
+
+- Resolved compilation warnings on CRAN by replacing the deprecated `arma::conv_to<double>::from()` with `arma::as_scalar()`. This addresses an issue introduced by a recent `RcppArmadillo` update and ensures forward compatibility with the latest version of Armadillo.
+
 # hmcdm 2.1.0
 
 - Release of `hmcdm` package version 2.1.0.

src/basic_functions.cpp

@@ -175,7 +175,7 @@ arma::mat ETAmat(unsigned int K,unsigned int J,const arma::mat& Q) {
  arma::vec alpha_c = inv_bijectionvector(K,cc);
  for(unsigned int j=0;j<J;j++){ //*
  arma::rowvec qj = Q.row(j);
- double compare = arma::conv_to<double>::from(qj*alpha_c - qj*qj.t());
+ double compare = arma::as_scalar(qj*alpha_c - qj*qj.t());
  ETA(j,cc) = (compare>=0);
  }
  }

src/mcmc_functions.cpp

@@ -1456,10 +1456,10 @@ void parm_update_rRUM_g(const arma::cube& Design_array,
  for(unsigned int k=0;k<K;k++){
  arma::vec alpha_i_1 = alpha_i;
  alpha_i_1(k) = 1.0;
- c_aik_1 = (arma::conv_to< double >::from( alpha_i_1.t()*bijectionvector(K) ));
+ c_aik_1 = (arma::as_scalar( alpha_i_1.t()*bijectionvector(K) ));
  arma::vec alpha_i_0 = alpha_i;
  alpha_i_0(k) = 0.0;
- c_aik_0 = (arma::conv_to< double >::from( alpha_i_0.t()*bijectionvector(K) ));
+ c_aik_0 = (arma::as_scalar( alpha_i_0.t()*bijectionvector(K) ));
  // Rcpp::Rcout<<alpha_i_1<<std::endl;
  // Rcpp::Rcout<<alpha_i_0<<std::endl;
 
@@ -1546,9 +1546,9 @@ void parm_update_rRUM_g(const arma::cube& Design_array,
  arma::vec Xjk = Xj.col(kj);
  arma::vec ak = alpha.col(kj);
 
- double Sumalphak = (arma::conv_to< double >::from(ak.t() * ak));
- double SumXjk = (arma::conv_to< double >::from(Xjk.t() * Xjk));
- double SumXjkalphak = (arma::conv_to< double >::from(Xjk.t() * ak));
+ double Sumalphak = (arma::as_scalar(ak.t() * ak));
+ double SumXjk = (arma::as_scalar(Xjk.t() * Xjk));
+ double SumXjkalphak = (arma::as_scalar(Xjk.t() * ak));
  double bsk = SumXjkalphak ;
  double ask = Sumalphak - SumXjkalphak ;
  double agk = SumXjk - SumXjkalphak ;
@@ -1765,10 +1765,10 @@ void parm_update_NIDA_indept_g(const arma::cube& Design_array,
  for(unsigned int k=0;k<K;k++){
  arma::vec alpha_i_1 = alpha_i;
  alpha_i_1(k) = 1.0;
- c_aik_1 = (arma::conv_to< double >::from( alpha_i_1.t()*bijectionvector(K) ));
+ c_aik_1 = (arma::as_scalar( alpha_i_1.t()*bijectionvector(K) ));
  arma::vec alpha_i_0 = alpha_i;
  alpha_i_0(k) = 0.0;
- c_aik_0 = (arma::conv_to< double >::from( alpha_i_0.t()*bijectionvector(K) ));
+ c_aik_0 = (arma::as_scalar( alpha_i_0.t()*bijectionvector(K) ));
  // Rcpp::Rcout<<alpha_i_1<<std::endl;
  // Rcpp::Rcout<<alpha_i_0<<std::endl;